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ABSTRACT 


CONC/11 is a computer program designed for calculating the performance of 
dish-type solar thermal collectors and power systems. It is intended to aid 
the system or collector designer in evaluating the performance to be expected 
with possible design alternatives. From design or test data on the charac- 
teristics of the various subsystems, GONC/11 calculates the efficiencies of 
the collector and the overall power system as functions of the receiver tem- 
perature for a specified insolation. If desired, CONC/11 will also determine 
the receiver aperture and the receiver temperature that will provide the high- 
est efficiencies at a given insolation. The program handles both simple and 
compound concentrators. CONC/11 is written in Athena Extended Fortran (simi- 
lar to Fortran 77) to operate primarily in an interactive mode on a Sperry 
1100/81 computer. It could also be used on many small computers. 
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SECTION I 


INTRODUCTION 


CONC/11 is a computer program designed for calculation of the performance 
of dish-type solar thermal collectors and power systems. It is intended to 
aid the system or collector designer in evaluating the performance to be 
expected with possible design alternatives. 

The solar thermal power system covered by CONC/11 consists conceptually 
of one or more dish-type solar collectors, power conversion subsystems, and 
power processing subsystems. Each collector is composed of a concentrator and 
a receiver (usually a cavity receiver), and serves to concentrate sunlight and 
convert its energy to heat in a working fluid. The power conversion subsystem 
(PCS) converts this heat to mechanical or electrical energy by means of a heat 
engine and (for electrical energy) an electrical generator. If the desired 
system output is heat, the power conversion subsystem is omitted. The power 
processing subsystem (PPS) transports the electrical or mechanical power from 
the PCS or the heat from the receiver to the system output and performs any 
associated power processing. 

From design or test data on the characteristics of the various subsys- 
tems, CONC/11 calculates the collector efficiency and the overall power system 
efficiency as functions of the receiver temperature for a specified insola- 
tion. If desired, CONC/11 will also determine the receiver aperture and the 
receiver temperature that will provide the highest efficiencies at a given 
insolation. 

CONC/11 does not calculate performance for conditions of varying insola- 
tion, such as those encountered over a year of service. However, it can be 
used as a tool for such calculations, as explained in Section IV. 

CONC/11 handles designs in which the sunlight is reflected or refracted 
once (a simple concentrator) or twice (a compound concentrator, consisting of 
a primary and a secondary). 
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SECTION II 


OPERATING ENVIRONMENT 


CONC/11 was written to operate on a Sperry Univac 1100/81 computer, such 
as those used in the JPL Central Computing Facility. It could be run on any 
computer provided with the necessary software, an in-core memory of 16,000 
words of at least 16 bits, and access to some form of mass storage. For 
input, either a card reader or an interactive terminal may be used. The input 
terminal needs a keyboard plus either a printer, a monitor, or a TV screen for 
prompting. CONC/11 was designed to send output to a printer with at least 126 
characters per line. Printers with shorter line lengths could presumably 
handle the output by folding lines, which would result in some loss of 
readability. 

CONC/11 is written in Athena Extended Fortran. This version of Fortran 
allows use of the IF. .. .THEN. .. .ELSEIF. .. .ELSE. .. . structure. It is very 
similar to Fortran 77. CONC/11 also uses some routines from the libraries 
JPL$ and CLIB$, specifically the routines ASSIGN and CSF8 to assign a file 
from within a Fortran program, and the routine SLUP to perform a table 
lookup. Section VI of this report provides instructions for finding and using 
CONC/11. 
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SECTION III 


PROGRAM STRUCTURE 


A. INPUT 

All inputs for CONC/11 are prompted. Inputs must be provided, and output 
is generated, for one set of input data at a time (a data set). Multiple data 
sets may be submitted sequentially during a single run of CONC/11. 

CONC/11 utilizes two kinds of inputs, variables and arrays. Default 
values are provided for all variables at the beginning of a run. Values used 
for one data set are saved within the program and become the default values 
for the next data set. (One exception is noted below.) All variable values 
that differ from the default are entered by a single Fortran NAMELIST input 
statement, each in the form 

VARIABLE = value 

Input variables are themselves of two kinds: (1) real variables defining sys- 

tem characteristics numerically and (2) logical variables selecting certain 
system and program options. Some of these options pertain to the system 
design, some to the way array inputs will be provided, and some to the format 
of the program output as explained below. Input variables, their meaning and 
units, and their default values are tabulated in the CONC/11 dictionary 
(Appendix A) and also in Block 1 of the program listing (Appendix D). 

Two arrays may be entered as part of each data set. One of these input 
arrays defines receiver temperatures for the data set; the other is optional 
and defines a set of efficiencies pertaining to the PCS, as is further 
explained below. There are initially rw default values for these arrays. The 
first data set, therefore, must include a list of receiver temperatures. 

These temperatures must be entered, when prompted, in the form of 3 integers 
representing DO-loop parameters: 

Temperature 1, Temperature 2, Temperature 3 


where 


Temperature 1 is the lowest receiver temperature (degrees Celsius) to be 
used. 

Temperature 2 is a "not-to-be-exceeded" receiver temperature, and 

Temperature 3 is the increment of receiver temperature to be used between 
successively higher temperatures. 

The array of efficiencies pertaining to the PCS is prompted and accepted 
for the first data set if so indicated by the setting of appropriate logical 
variables. This array is entered, if needed, as a free-field list of real 
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variables , 


Efficiency 1, Efficiency 2, Efficiency 3,.... 

where each efficiency in the sequence corresponds to a receiver temperature 
defined by the receiver temperature array. 

CONC/11 saves internally the arrays of receiver temperatures and of effi- 
ciencies pertaining to the PCS and uses them as default values for all data 
sets after the first. To enter a new array for a new data set, the logical 
variable, NWTORF (NeW Temperature OR eFficiency), must first be set .TRUE, for 
that data set. (The default value of NWTORF is set equal to .FALSE, for all 
data sets after the first.) When this is done, the program will prompt for an 
array of receiver temperatures, which must be entered. If the selected 
options require use of an array to define PCS efficiencies, that array will 
also be prompted for and must be entered. 


Quantities to be Input 

The CONC/11 dictionary (Appendix A) lists the quantities to be 
input, indicates whether they are required or optional, and gives the type of 
corresponding variable, the units, and the default value. Further information 
can be obtained from Block 1 of the program listing (Appendix D). 


B. OPTIONS 

CONC/11 will accept inputs in many alternative forms and provides a num- 
ber of options concerning the system characteristics to be entered, the calcu- 
lations to be done by the program, and the format of the output. Appendix B 
describes these options. 

Depending upon the input options selected, some of the input variables 
are ignored by the program and need not be specified. To clarify the output, 
such variables are generally set equal to zero in the output (except that por- 
tion of the output which merely echoes the input). However, the default or 
input values of these variables are saved internally in the program and used 
as default values for the next data set. 


C . OUTPUT 

1. Standard Output 

If there are no input errors, the output for each data set takes one 
or two pages and consists of three parts: an echo of the input, a listing of 
the values used for the input variables, and an output table. 


3-2 



a. Echo of Input . This consists of: 

(1) The set number 

(2) An echo of the input NAMELIST, showing any new values for 
input variables 

(3) An echo of the list defining receiver temperatures if a 
new list has been input 

If an array of efficiencies pertaining to the PCS is input, it is not 
echoed. The efficiencies used for the data set can be determined by examining 
the output table. 


b. List of Values Used for Input Variables . This is a NAMELIST 

listing of the values used by the program for all input variables, whether 
provided by a new input, by default, or generated within the program. Values 
that are ignored by the program are generally set equal to zero. Values that 
vary with the receiver temperature are set equal to zero in this list; the 
values used are given in the output table. 


c. Output Table . This table consists of one, or in some cases 
two, lines for each receiver temperature. The quantities listed depend upon 
the options chosen. (See Appendix B, Section D, "Options Pertaining to 
Output.") The following quantities are always given: 

Receiver temperature, in °C and °F 

Collector efficiency 

Power conversion subsystem efficiency 
System efficiency 

The ratio, (system efficiency at this receiver temperature )/ (highest sys- 
tem efficiency at any receiver temperature listed) 


If the program optimizes the receiver aperture (option OPTMZE) , the out- 
put table also gives 

Geometric concentration ratio 

Intercept factor 


If calculations are made for a secondary concentrator (option SECONC), 
the collector and system efficiencies and the fraction of maximum system effi- 
ciency are given both with and without the secondary, as is the delta for each 
due to use of the secondary. 
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If the program optimizes the receiver aperture, and if a secondary con- 
centrator is used (options OPTMZE and SECONC), the geometric concentration 
ratio and intercept factor of the primary are given both with and without use 
of the secondary. A second line for each receiver temperature gives the over- 
all geometric concentration ratio and the overall intercept factor for the 
compound concentrator. In addition, if the program maximizes the secondary 
concentration ratio (option MAXSEC), this value is printed on the second 
line. Output of the second line may be suppressed if desired (option SUP2). 


2. Extract of Output 

If an extract of the output is requested (option XTRACT), a separate 
extract is provided, in addition to the standard output. For each data set, 
this extract consists of the echo of input and an abbreviated output table. 
This table includes only the lines for the lowest and highest receiver temper- 
atures and for the receiver temperature at which system efficiencies are high- 
est. Table headings are omitted. 


D. ERROR HANDLING 

If an input format error is detected in a data set, an error message is 
placed in the output and the run is aborted after results for all preceding 
data sets are sent to output. 

If the input values are found to be optically impossible or outside of 
the range of input that the program can handle, an error message is output and 
the program generally skips further processing of that data set. In a few 
cases, a warning is sent to output and processing of the data set continues. 

If the efficiency or temperature given for power conditioning is thermo- 
dynamically impossible, the program provides an error message and skips 
further processing for the temperature concerned until acceptable values are 
input . 

If the list of temperatures indicates that the accompanying array of 
efficiencies is too long for the allocated storage, a warning is generated and 
the array is truncated. If more efficiencies are input than correspond to the 
temperature list, the efficiency array is truncated. If too few efficiency 
values are provided, a read error will result. 

If conflicting options are selected, the program choses one and provides 
a message so stating. 

If an extract is requested, but the Exec is unable to catalog or assign a 
file for this purpose, CONC/11 omits the extract and so states. 
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SECTION IV 


EQUATIONS USED 


The equations used are similar to those presented and discussed in Refer- 
ence 1. The reader may find it useful to read Section II of that reference, 
where equations are given in algebraic form, before going through the rest of 
this section, in which Fortran notation is used. 

The key output quantities are defined as: 


Collector efficiency = 


thermal power output of receiver 

(direct normal insolation) x (concentrator aperture area) 


System efficiency 


net power output of system, deducting parasitics 
(direct normal insolation) x (concentrator aperture area) 


Definitions of other solar engineering terms are given in Reference 1. All of 
the quantities used in the following equations are defined in Appendix A. 


A. COLLECTOR 

1. Collector Efficiency 

The equation used for collector efficiency is 


A(l) = (INS*RH01*BS1*PHI*ALPHA-(1/C1)(EPS*B0LTZ*(TRK**4-TAK**4) 

+HC*( TRK-TAK) )-ARATI0*HK*( TRK-TAK) ) /INS ( 1) 


Equation (1) assumes that the concentrator is pointed close to the sun 
line. It assumes that the only energy entering the receiver is sunlight from 
the concentrator and that receiver input may be expressed as this energy times 
an effective absorptance for the receiver aperture area. Equation (1) also 
assumes that the cavity temperature may be taken as uniform and that receiver 
losses may be expressed using an effective emittance for the aperture area, an 
effective convection coefficient for the aperture area, and an effective con- 
ductive coefficient for the wall area of the cavity — all of these being 
independent of temperature, concentrator pointing, and wind velocity. These 
assumptions are usually adequate for preliminary system design. 

Equation (1) is taken from Reference 1. It is a slightly modified form 
of a relation given earlier in Reference 2. 

When a secondary concentrator is used. Equation (1) is modified by 
replacing RHOl by RH01*RH02, BSl by BSl*BS2, PHIl by PHI1S*PHI2, and Cl by 
C1S*C2 (Ref. 1). It may be necessary to adjust BSl to take into account any 
shadowing of the primary by the secondary. 
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2. Intercept Factor and Concentration Ratio 

The user o£ CONC/11 sometimes will have available all of the quan- 
tities on the right-hand side of Equation (1) and will be able to provide them 
as input. Often, however, the intercept factor or the geometric concentration 
ratio obtainable will not be known, and it will be necessary for the program 
to calculate them. CONC/11 obtains these quantities as follows: 


For the variance of the angular distribution of sunlight leaving a local 
area of the (primary) mirror or lens (taken to be Gaussian), CW<C/11 uses: 

DELTSQ = (2.0*SLOPER/1000.0)**2+(SPECUL/1000.0)**2 

+(SOLSD/1000.0)**2 (2) 

For twice the square of the standard deviation of the flux distribution 

in the focal plane (taken to be Gaussian) in units of concentrator radius, the 

program uses: 

SIG2DF = 2.0*DELTSQ*(1.0/(RMAR*((TAN(RMAR/2.0))**2)))* 

((-1.0/(3.0*(S**3)*C))+(2.0/(3.0*( S**3)))+(2.0/S) 
-(C/(3.0*(S**3)))-(2.0*C/S)+((4.0*S)/(3.0*O) 

-ALOG ( TAN( P4+RMAR/ 2 . 0 ) ) + ALOG ( TAN( P4 -RMAR/ 2.0))) ( 3a ) 

if the overall contour of the concentrator is a paraboloidal mirror, and 

SIG2DF = 2.0*DELTSQ*(1.0+2.0*(C**2))/(3.0*RMAR*C*S) (3b) 

if the overall contour is planar. Here 

S = SIN(RMAR) 

C = COS (RMAR) 

T « TAN(RMAR) 


For the maximum intercept factor or geometric concentration ratio that is 
optically possible, CONC/11 uses: 

PHIl = 1.0-EXP(-1.0/(C1*SIG2DF)) (4a) 

or equivalently: 

Cl = 1.0/(SIG2DF*(-ALOG(1.0-PHI1))) (4b) 

Equation (4b) breaks down if PHll = 1.0, which is not possible for a 
finite receiver aperture size because a Guassian flux distribution 
extends to infinity. If given PHll = 0 as an input, the program uses: 

Cl “ 1.0/(SIG2DF*VF) (4c) 

as an approximation, where the parameter VF has been set = 6. 
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When a secondary concentrator is used, PHll and Cl in Equations (4a) and 
(4c) are replaced by PHIIS and CIS, and the maximum C2 that is optically pos- 
sible is given by the smaller of the quantities: 

1.0/(((SIN(RMAR+DELT))**2)*PHI2) (5a) 


and 


(1.0/ClS*((SIN(DELT))**2)*PHI2))*VF/(-ALOG(1.0-PHIlS)) (5b) 

if PHIIS i 1.0, or 

1.0/(C1S*((S1N(DELT))**2)*PHI2) (5c) 

if PHIIS =1.0. Here, DELT = SQRT(DELTSQ) . 


Equations (3a) and (3b) require as input the rim angle of the concen- 
trator. If the rim angle is not known to the user, CONC/11 will calculate it 
from the focal ratio, if given. The basic relationships are: 

F = (1.0+COS(RMAR))/(4.0+SIN(RMAR)) (6a) 

if the overall contour of the concentrator is that of a paraboloidal 
reflector, and 

F = 1.0/U.0*TAN(RMR)) (6b) 

if the overall contour is planar. 

To solve Equation (6a) for RMAR, CONC/11 uses a table lookup; solution of 
Equation (6b) is done explicitly: 

RMAR = ATAN2(1.0,(2.0*F)) (6c) 


Equations (4) and (5) are used to calculate intercept factors and geo- 
metric concentration ratios, as appropriate, when the options MAXPHI, MAXC, or 
MAXSEC are selected. In other cases they are used as a basis for warning mes- 
sages stating that quantities input for these variables are greater than is 
optically possible. 

If the option OPTMZE is selected, GONC/11 calculates the intercept factor 
and geometric concentration ratio that will provide maximum collector effi- 
ciency for a simple concentrator, using the equations: 

PHIl = 1.0-(SIG2DF*EPS*BOLTZ*(TRK**4-TAK**4)+HC(TRK-TAK)) 

/(INS*RH01*BS1*ALPHA) (7a) 

Cl = 1.0/(SIG2DF*ALOG(INS*RH01*BS1*ALPHA 

/ ( SIG2DF*EPS*B OLTZ*( TRK**4-TAK**4 ) +HC ( TRK-TAK) ) ) ) ( 7b ) 


4-3 



If OPTMZE is selected with a secondary concentrator, the equations used 
are; 


PHI is = 1.0-(SIG2DF*EPS*BOLTZ*(TRK**A-TAK**4)+HC(TRK-TAK)) 

/ ( INS*RHO 1 *RH02 *B S 1 *B S2 *ALPHA*PH 1 2 *C 2 ) (7c) 

CIS = 1.0/SIG2DF*ALOG(INS*RH01*RH02*BS1*BS2*ALPHA*PH2*C2 

/ ( SIG2DF*EPS*B0LTZ*( TRK**4-TAK**4) +HC ( TRK-TAK) ) ) ( 7d ) 

In Equations (7c) and (7d), C2 is calculated by expression (5a) if option 
MAXSEC has been selected; otherwise, CONC/11 uses the value of C2 pro- 
vided by input or default. 


Equation (2) assumes that the slope error and specularity spread of the 
mirror or lens and the angular spread of the incoming sunlight are all very 
small compared to the rim angle of the concentrator. This should be true for 
all practical concentrators. Equation (2) also assumes that the concentrator 
slope errors and specularity and the angular distribution of incoming sunlight 
are all normally distributed (Gaussian). This is a reasonable first approxi- 
mation for slope errors, although circumferential slope errors may have a dif- 
ferent standard deviation than tangential. The specularity spread of reflec- 
tion from a glass mirror appears to be close to Gaussian, but if reflection is 
from a metal or polymeric mirror, the sum of two normal distributions may be 
needed for a good description (Ref. 3). For solar radiation, a Gaussian 
angular distribution is a rather crude approximation, although its accuracy 
depends on atmospheric conditions (Ref. 4). Unless the concentrator is unusu- 
ally accurate, however, (SOLSD/1000.0)**2 is considerably smaller than DELTSQ, 
and the inexactness of the solar representation has little effect upon the 
flux distribution in the focal plane (Ref. 4). Equation (2) neglects concen- 
trator pointing errors and the spectral dispersion produced by a lens con- 
centrator. If desired, either or both may be taken into account by providing 
as input for SPECUL the square root of the sum of the variances in angle due 
to specularity spread, pointing error, and dispersion. 

Equation (3) is taken from Reference 5. As pointed out earlier (Ref. 6), 
the flux distribution in the focal plane may be taken as Gaussian. Refer- 
ence 1 gives justification for the choice of Equation (3). 

Equations (4a) and (4b) were derived in Reference 1. Equation (4c) is 
believed to be a reasonable approximation; the choice of VF = 6 was based on a 
cut-off reasonably far out on the tail of the Gaussian distribution (about 2.5 
standard deviations). 

Equation (5a) was derived from consideration of the theoretical perfor- 
mance of an ideal concentrator irradiated over an angle RMAR+DELTA (Refs. 7,8) 
and modified by the intercept factor PHI2. This modification is equivalent to 
assuming that the flux density is uniform, out to a finite radius, in the 
focal plane of the secondary. This is a good approximation for secondaries 
with good performance (Ref. 7). Equations (5b) and (5c) are derived in the 
same way from the theoretical performance of an ideal compound concentrator 
irradiated over an angle DELT and with primary characteristics given by Equa- 
tion (4). 
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Equation (6) is straightforward geometry. Equation (7a) was derived by 
substituting Equation (4a) in Equation (1), differentiating, setting the dif- 
ferential d(A(l) )/d(TRK) = 0, and solving for PHIl. Equation (7b) was then 
derived by substituting this value of PHIl in Equation (4b). Equations (7c) 
and (7d) are derived in an analogous way, using factors appropriate to a com- 
pound concentrator. 


B. SYSTEM EFFICIENCY 

The system efficiency is calculated as 

A(5) = A(1)*PCSE*PPE (8) 

The power processing efficiency (PPE) is an input or default value. The power 
conversion subsystem efficiency (PCSE) is obtained in one of several ways, 
depending upon the options selected and the zero or nonzero values input for 
the pertinent variables. Thus, PCSE may be given as an array of input values, 
one for each receiver temperature, or may be calculated as 

PCSE = PCEFCT*((TIK-T0K)/TIK) (9a) 

where PCEFCT, the PCS effectiveness as a fraction of Carnot efficiency, is an 
input or default value. Alternatively, PCSE may be taken as 

PCSE = ENGE*GEARE*GENE (9b) 

Here GEARE and GENE are input values, and the engine efficiency, ENGE, is 
either given as an array of input values, one for each receiver temperature, 
or may be calculated as 

ENGE = ENEFCT*((TIK-T0K)/TIK) (10a) 

where the engine effectiveness, ENGE, is an input value. Alternatively, ENGE 
may be taken as 

ENGE = CYCE*MECHE*AUXE (10b) 

where MECHE and AUXE are input values, and the thermodynamic cycle efficiency, 
CYCE, is either given as an array of input values or calculated as 

CYCE = CYCECT*((TIK-TOK/tIK) (11) 

with the cycle effectiveness, CYCECT, being an input value. 

The input temperature, TIK, is calculated as 

TIK = TRK-DTRE (12) 
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where the receiver temperature, TRK, is given by an input list and an internal 
conversion from Celsius to Kelvin, and DTRE and TOK are input or default 
values (with Celsius to Kelvin conversion). 

Derivation of these equations is obvious. 

CONC/11 determines the temperature at which system efficiency is greatest 
by calculating this efficiency at many receiver temperatures, which are 
defined by an input list, and noting at which temperature the system effici- 
ency is highest. This is done for a fixed insolation. If it is desired to 
calculate yearly performance at a selected site (for which insolation data are 
available), or to optimize receiver temperature or aperture to provide maximum 
output over a year at such a site, the output for a given design may be calcu- 
lated for each insolation level and the results weighted and summed to give 
total output for a year. By computing this total output for various receiver 
temperatures or apertures, the optimum based on yearly output may be deter- 
mined. 
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SECTION V 


FUNCTIONAL BLOCK DIAGRAMS 


CONC/11 consists of a main program and two subroutines: NAMLRD, which 
carries out the NAMELIST read-in and echoing of the input variables, and OPT, 
which carries out the optical calculations and checks associated input values. 
OPT has three entries, CKNOPT, CKOPT, and OPTAP. CONC/11 also uses subroutines 
and functions from the MATH library and, as described in Section II, from the 
libraries JPL$ and CLIB$. 

Figure 5-1 provides an overall block diagram of CONC/11. Figures 5-2, 

5-3, and 5-4 give greater detail for Blocks 2.2, 2.3, and 2.4. Figures 5-5 
and 5-6 are block diagrams for the subroutines NAMLRD and OPT. 
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Figure 5-2. Diagram of Block 2.2 




BLOCK 

2.3.1 


BLOCK 

2.3.2 


BLOCK 

2.3.3 


BLOCK 

2.3.4 



Figure 5-3. Diagram of Block 2.3 


5-4 








BLOCK 2.4 


ALL 

TEM PERATURES\1I1 
\HANDLED 
\ ? / 


CALCULATE 

RECEIVER 

PERFORMANCE 

TERMS. 


OPTIMIZATION 
OF RECEIVER 
APERTURE 
S^EQUESTED/ 


SUBROUTINE OPT 
ENTRY OPTAP 

OPTIMIZE RECEIVER 
APERTURE. 


CALCULATE 
EFFICIENCIES. 
ENTER THEM 
IN OUTPUT 
ARRAY. 




Figure 5-4. Diagram of Block 2.4 
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Figure 5-5. Block Diagram of Subroutine NAMLRD 
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Figure 5-6. Block Diagram of Subroutine OPT 
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SECTION VI 


USER INSTRUCTIONS 


Source and absolute CONC/11 programs are stored in JFL MASSTOR as elements 
of the file JAFFE*S0LAR1 . To use these programs, arrange access to the MASSTOR 
file and transfer it to a JPL Sperry Univac 1100 file by initiating a run on 
the 1100 and then conmanding 

0SRD 

RESTORE programfile FROM JAFFE*S0LAR1 

STOP 

(If MASSTOR is discontinued, files stored on it are to be saved. A backup tape 
identified as JAFFEl is held by the author.) 

The rest of these instructions pertain to execution on the Sperry Univac 
1100. Similar methods can be used on other computers. The program is run on 
the Sperry 1100 by the command 

0XQT programfile. CONC/11 

To become familiar with the program, it is best to run it first in demand 
mode, from an interactive terminal set up to display and print transmissions 
from the 1100. This will permit display of prompts for all input, which 
should be entered with the keyboard. The input needed is described in Section 
III. A. above. Input and output will be displayed and printed. Multiple sets 
of input data are expected; after output is provided for one set, input is 
solicited for the next set. To end CONC/11 execution, enter 

0EOF 

when prompted for input values (NAMELIST). CONC/11 may be reinvoked as often 
as desired, and new sets of values entered. 

When the user becomes familiar with CONC/11 and perhaps wishes to avoid 
inclusion of prompt and input messages in the output printout or to reduce 
time at the terminal, he may catalog and assign a file for output, then break- 
point to this file immediately before executing CONC/11: 

0BK1 outputfile 

0XQT programfile .CONC/ 11 

After completing a CONC/11 execution, the data file should be sent to a printer 
by 


0BK2 siteid, bldg/box 

Care should be taken not to overwrite the output file by breakpointing succes- 
sive CONC/11 executions. Either use the form 
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@BK1 


without a file name, which creates a unique file each time it is invoked, or 
specify a different output file (or file cycle) for each execution. 

A disadvantage of this method of execution is that the prompts displayed 
are limited to a carat. Therefore, it is necessary to keep track of the 
inputs that will be required. Accordingly, this mode is not recommended 
unless only very few sets are input per CONC/11 execution. 

If the output is to be breakpointed, it is better to create a file con- 
taining the input for a CCMC/11 execution and check this file. After output 
is breakpointed, CONC/11 is executed by 

@XQT programfile.COJC/ll 

@ADD inputfile 

Alternatively, once the user is familiar with the program, he may choose 
to execute it in batch mode, either from cards or from 1100 files, using the 

@ADD inputfile 
as mentioned above. 

With any of these methods of execution, if option XTRACT is selected, an 
extract of the output (described in Section 1I1.C.2. above) is placed in a 
file named XTRACT, which is cataloged and assigned by CONC/11. A new file 
cycle is cataloged at each C(X)C/11 execution to prevent overwriting. The 
XTRACT file should be printed out by commanding 

0BLK,S XTRACT, bldg/box, printer 

This command should be repeated once for each execution of CONC/11. Multiple 
executions may precede any printout of XTRACT. If this is done, printouts 
will be in the reverse order of the executions (e.g., latest XTRACT output 
printed first). 
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APPENDIX A 
CONC/11 DICTIONARY 
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Name 


A 


AA 


ALOG 


ALPHA 


AMAXl 


AMINl 


ARATIO 


ASGIOO 


ASSIGN 


ATAN2 



Dimen- 


Default 

Used for 

Usage 

sions 

Type 

Value 

Units Input Output 

Array 

7 

Real 




A(l): Collector efficiency, without secondary 

A(2): Collector efficiency, with secondary 

A(3): Collector efficiency increase due to secondary 

A(4): Power conversion subsystem efficiency 

A(5): System efficiency, without secondary 

A(6): System efficiency, with secondary 

A(7): System efficiency increase due to secondary 

Array 9, NT Real - X 

Output array of efficiencies 

Function - Real 

Natural logaritlim. (In Math Library.) 

Variable - Real 1.0 - X 

Receiver effective absorptance 

Function - Real 

Largest of 2 arguments. (Intrinsic function.) 

Function - Real 

Smallest of 2 arguments, (intrinsic function.) 

Variable - Real 0.025 - X 

Ratio, (Receiver cavity wall area)/ (Concentrator area) 

Variable - Logical 

Flag to indicate assignment of extract file XTRACT. 

(File 100 internally in Fortran.) 

Subroutine - - - 

Sends @CAT and @ASG commands to Exec. (In library LIB*CLIB$.) 

Function - Real 

Arctangent of ratio of 2 arguments. (In Math Library.) 
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Dimen- Default Used for 

Name Usage sions Type Value Units Input Output 


AUXE 

Variable 

Real 

0.0 

- 

X 


Efficiency factor to account for 

power used by 

auxiliaries 


A5MAX 

Variable 

Real 

- 

- 



Highest system efficiency, without secondary 



A6MAX 

Variable 

Real 

- 

- 



Highest system efficiency, with 

secondary 



BOLTZ 

Variable - 

Real 

5.67032E-8 

W/m^K^ 



Boltzman constant 





BOUND 

Variable 

Real 

l.OE-7 

- 



Bound for equality comparisons of real numbers 
by zero 

and to prevent division 

BSl 

Variable 

Real 

1.0 

- 

X 


Blocking and shadowing 

factor of 

primary concentrator 


BS2 

Variable 

Real 

1.0 

- 

X 


Blocking and shadowing 

factor of 

secondary concentrator 


C 

Procedure 


- 

- 



Cosine of rim angle of 

(primary) 

concentrator 



CARNOT 

Variable 

Real 

- 

- 



Carnot efficiency 





CINV 

Variable 

Real 

- 

- 



Inverse of Cl 





CINVS 

Variable 

Real 

- 

- 



Inverse of CIS 





CKNOPT 

Entry 

- 

- 

- 



Checks input of collector characteristics. Calculates angular distri- 
bution of sunlight leaving local area of mirror or lens. Used when 
receiver aperture optimization is not selected. (in subroutine OPT.) 
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Name 


Usage 


Dimen- 

sions 


Default 

Value 


Used for 

Units Input Output 


CKOPT 


COS 


CSF8 


CYCE 


CYCECT 


Cl 


CIMAX 


CIS 


CISMAX 


C2 


C2HOLD 


C2MAX 


Entry - - - - 

Corresponds to preceding item. Used when receiver aperture optimiza- 
tion is selected. (In subroutine OPT.) 

Function - Real 

Cosine. (In Math Library.) 

Function - Integer 

Sends @USE command to Exec. (In library LIB*CLIB$.) 

Variable - Real 

Thermodynamic cycle efficiency of engine 

Variable - Real 0.0 - X 

Cycle effectiveness (fraction of Carnot efficiency) 

Variable - Real 1000.0 - X 

Geometric concentration ratio, without secondary 
Variable - Real 

Maximum Cl that is optically possible 

Variable - Real 1000.0 - X 

Primary geometric concentration ratio, with secondary 
Variable - Real 

Maximum CIS that is optically possible 

Variable - Real 1.0 - X 

Secondary geometric concentration ratio 

Variable - Real 

Temporary store of C2 

Variable - Real 

Maximum C2 that is optically possible 
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Name 

DELT 

DELTSQ 

DTRE 

DUMMY 

EFF 

ENEFCT 

EN6E 

EPS 

EXP 

F 

FRAY 

GEARE 


Usage 

Dimen- 

sions 

Type 

Default 

Value 

Units 

Used for 
Input Output 

Variable 


Real 


radian 



Variance of Gaussian angular distribution of sunlight leaving a local 
area of (primary) mirror or lens 

Variable - Real - (radian)^ 

Standard deviation of Gaussian angular distribution of sunlight leav- 
ing a local area of (primary) mirror or lens 

Variable - Real 25.0 °C X 

Temperature drop from receiver to engine 

Variable - Real 

Dummy argument in call of subroutine SLUP 

Array NT Real - - X 

Power conversion! engine! or cycle efficiencies corresponding to 
receiver temperatures designated by ITRC list 

Variable - Real 0.0 - X 

Power conversion effectiveness (fraction of Carnot efficiency) 

Variable - Real 

Engine efficiency 

Variable - Real 1.0 - X 

Receiver effective emittance (for aperture area) 

Function - Real - - 

Exponential, (in Math Library.) 

Variable - Real 0.6 - X 

Focal ratio of (primary) concentrator 
Array 90 Real (DATA) 

Focal ratios corresponding to RMARAY 

Variable - Real 0.0 - X 

Gear efficiency 
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Name 

Usage 

Dimen- 

sions 

Type 

Default 

Value 

Units 

Used for 
Input Output 

GENE 

Variable 


Real 

0.0 


X 


Generator efficiency 

HC Variable - Real 0.0 W/m^°C X 

Effective convection coefficient (for receiver aperture) 

HK Variable - Real 0.0 W/m^°C X 

Effective conduction coefficient (for receiver cavity wall) 

I Variable - Integer - degree 

Index of DO loop to generate RMARAY 

ICYCEF Variable - Logical .FALSE. - X 

.TRUE, to input engine cycle efficiency vs. temperature 
IDUMM Variable - Integer 

Dummy argument in call of subroutine ASSIGN 
lENGEF Variable - Logical .FALSE. - X 

.TRUE, to input engine efficiency vs. temperature 
INREAD Array 14 Integer - - 

Read/Write buffer 

INS Variable - Real 800.0 W/m^ X 

Insolation 

IPCSEF Variable - Logical .FALSE. - X 

.TRUE, to input PCS efficiency vs. temperature 
IRFLG Variable - Logical - - 

Flag to indicate if RMARAY has been generated 
ISTAT Variable - Integer - - 

Indicates status of execution of function CSF8 
ITRC Variable - Integer - °C 

Receiver temperature. (index of DO loop.) 
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Name 

ITRCl 

ITRC2 

ITRC3 

J 

JJ 

K 

L 

M 

MAXC 

MAXPHI 

MAXSEC 

MECHE 

MIN 


Usage 


Dimen- 

8 ions Type 


Default 

Value 


Used for 

Units Input Output 


Variable - Integer - °C X 

Initial parameter of DO loop for receiver temperatures 

Variable -- Integer - °C X 

Terminal parameter of DO loop for receiver temperatures 

Variable - Integer - °C X 

Incrementation parameter of DO loop for receiver temperatures 

Variable - Integer 

Index of DO loop 

Variable - Integer 

Number of records in input NAMELIST 

Variable - Integer - 

Index of DO loop 

Variable - Integer 

Position of character in word of input NAMELIST, (index of DO loop.) 

Variable - Integer 

Data set number, (index of DO loop.) 

Variable - Logical .FALSE. - X 

.TRUE, to maximize (primary) geometric concentration ratio 
Variable - Logical .FALSE. - X 

.TRUE, to maximize (primary) intercept factor X 

Variable - Logical .FALSE. - X 

.TRUE, to use maximum possible secondary concentration 
Variable - Real 0.0 - X 

Mechanical efficiency of engine 
Function - Integer 

Smaller of 2 arguments. (Intrinsic function.) 
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Name 

MNT 

MORDEC 

NAMLRD 

NLIST 

NSET 

NT 

NTCNT 

NTRC 

NWTORF 

OPT 

OPTAA 


Dimen- 

Default 


Used 

for 

Usage sions Type 

Value 

Units 

Input 

Output 

Variable - Integer 

- 

- 

X 


Number of efficiencies, pertaining 
receiver temperatures to be written 

to PCS, 

to be read 

and number 

of 

Variable - Logical 

.FALSE. 

- 

X 


.TRUE, to print more decimal places 

for efficiencies. 

(5 instead 

of 3.) 

Subroutine 

- 

- 



Reads in values of input variables 





Namelist name 

- 

- 



List of variables for NAMLIST 





Variable - Integer 

- 

- 



Number of data sets entered 





Parameter - - 

50 

- 



Maximum number of receiver temperatures per 

data set 



Variable - Integer 

- 

- 



Count of receiver temperatures 





Variable - Integer 

- 

- 



Number of receiver temperatures 





Variable - Logical 

- 

- 

X 



.TRUE, to read new receiver temperatures or new efficiencies pertaining 
to PCS. (Default value: .TRUE, for first data set; .FALSE, for all 

others . ) 

Subroutine - - 


Calculates or checks optical characteristics 

Array 5, NT Real - - X 


Intercept factors for specified receiver temperatures and concentration 
ratios. 


OPTAA (1, NTCNT): 
OPTAA (2, NTCNT): 
OPTAA (3, NTCNT): 
OPTAA (4, NTCNT): 
OPTAA (5, NTCNT): 


Cl for various receiver temperatures 

CIS if SECONC TRUE, else PHIl 

PHIl 

PHI IS 

C2 
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Dimen- 


Default 


Used for 

Name 

Usage 

sions 

Type 

Value 

Units 

Input Output 


OPTAP 


OPTMZE 


PARAB 


PCEFCT 


PHIl 


PHIIFC 


PHI IS 


PHIISF 


PH12 


PI 


PPE 


P4 


Entry - - - 

Optimizes receiver aperture. (in subroutine OPT.) 

Variable - Logical .FALSE. - X 

.TRUE, to optimize receiver aperture 

Variable - Logical .TRUE. - X 

.TRUE. : overall contour of (primary) mirror approximately 

paraboloidal 

.FALSE.; overall contour of (primary) mirror or lens approximately 
planar. 

Variable - Real 0.5 - X 

Power conversion effectiveness (fraction of Carnot efficiency) 

Variable - Real 0.95 - X 

Intercept factor (with no secondary concentrator) 

Variable - Real 

Function of PHIl used to determine maximum possible geometric 
concentration ratio (no secondary) 

Variable - Real (0.0) - X 

Intercept factor for primary concentrator (used with secondary) 
Variable - Real 

Function of PHIlS used to determine maximum possible primary geometric 
concentration ratio ) with secondary 

Variable - Real 1.0 - X 

Intercept factor for secondary concentrator 

Variable - Real 3.141592 

7T 

Variable - Real 0.95 - X 

Power processing efficiency 

Variable - Real Pl/4.0 

7T/4 
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Name 

RHOl 

RH02 

RMA 

RMAR 

RMARAY 

S 

SEOONC 

SIG2DF 

SIN 

SLOPE R 

SLUP 

SOLSD 


Dimen- Default Used for 

Usage sions Type Value Units Input Output 

Variable - Real 0.9 - X 

Effective reflectance or transmittance of (primary) concentrator 
Variable - Real 0.9 - X 

Effective reflectance or transmittance of secondary concentrator 
Variable - Real (0.0) degree X 

Rim angle of (primary) concentrator 

Variable - Real - radian 

Rim angle of (primary) concentrator 

Array 90 Real - degree 

Rim angles corresponding to FRAY 

Procedure - - _ _ 

Sine of rim angle of (primary) concentrator 
Variable - Logical .FALSE. 

.TRUE, to calculate performance with secondary concentrator, as well 
as without 

Variable - Real 

Variance of flux distribution in focal plane, in units of 
(concentrator radius )^ 

Function - Real 

Sine. ( In Math Library.) X 

Variable - Real 2.0 mrad X 

Slope error of (primary) reflector 

Subroutine - - - 

Table lookup and interpolation. (In Library LIB*JPL$.) 

Variable - Real 2.3 mrad X 

Standard deviation of angular spread of incoming sunlight 
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Name 

SPECUL 

SQRT 

SUP2 

T 

TAG 

TAK 

TAN 

TIK 

TOC 

TOK 

TRK 

TRMA 

TRMAS 


Dimen- 

Usage sions 

Type 

Default 

Value 

Units 

Used 

Input 

for 

Output 

Variable 

Real 

0.5 

mrad 

X 


Specularity spread of 

(primary) concentrator 




Function 

Real 

- 

- 

X 


Square root, (in Math 

library.) 





Variable 

Logical 

.FALSE. 

- 



.TRUE, to suppress 2nd 

line of output for each 

receiver 

temperature 

Procedure 


- 

- 



Tangent of rim angle of (primary) 

concentrator 




Variable 

Real 

20.0 

°C 

X 


Ambient temperature 






Variable 

Real 

- 

K 



Ambient temperature 






Function - 

Real 

- 

- 



Tangent. (In Math library.) 





Variable - 

Real 

- 

K 



Engine inlet temperature 





Variable 

Real 

50.0 

°C 

X 



Outlet temperature of engine thermodynamic cycle 
Variable - Real - K 

Outlet temperature of engine thermodynamic cycle 
Variable - Real - K 

Receiver (cavity) temperature 

Variable - Real - W/m^ 

Term pertaining to power into receiver (no secondary concentrator) 
Variable - Real - W/m^ 

Term pertaining to power into receiver with secondary concentrator 
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Name 

TRMB 

TRMC 

TT 

VF 

XFLAG 

XTRACT 

XTRON 

Y 

Z 

98 

100 


Dimen- Default Used for 

Usage sions Type Value Units Input Output 

Variable - Real - W/m^ 

Term pertaining to radiation and convection loss from receiver 
Variable - Real - W/m^ 

Term pertaining to conduction loss from receiver 

Array 2, NT Real - - X 

Receiver temperatures 

TT (1, NT) °C 

TT (2, NT) Op 

Variable - Real 6.0 - 

Variance ratio limiting maximum concentration when PHI =1.0 

Variable - Logical 

.TRUE, to identify line of output tables to be included in extract 
Variable - Logical .FALSE. - X 

.TRUE, to provide extract of output in file XTRACT 
Variable - Logical - - 

Flag to indicate if XTRACT has just been .TRUE. 

Array 32 Real 

Input values of real variables, held for next data set 
Array 32 Real 

Real variables used for input 

File - Temporary - - X - 

Holds input temporarily for NAMELIST read 

File - Cataloged - - - X 

Extract of output. (Named 'XTRACT* by Exec.) 
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OPTIONS 


A. OPTIONS PERTAINING TO COLLECTOR CHARACTERISTICS 

1 . Secondary Concentrator 

If SECONC (SEcondary CONCentrator) is set .TRUE., the output will 
show performance with a secondary concentrator, as well as without. If SECCNC 
is .FALSE., the output will be for a simple concentrator only (no secondary). 
The initial default value is .FALSE. 


2. Receiver Aperture Optimization 

If OPTMZE is set .TRUE., CONC/11 will calculate the receiver aper- 
ture size that provides maximum collector efficiency. It will calculate and 
output the corresponding geometric concentration ratio, intercept factor, and 
efficiencies. If SECONC is also .TRUE., the program will optimize the 
receiver aperture and output the quantities named, both with and without a 
secondary concentrator. The initial default value of OPTMZE is .FALSE. 

Optimization of receiver temperature to provide maximum system efficiency 
is always done by CONC/11 when data pertaining to PCS and PPS efficiencies are 
input, and need not be explicitly requested. 


3. Maximization of Geometric Concentration Ratio 

Maximization of geometric concentration ratio at a given intercept 
factor is requested by setting MAXC (MAXimum Concentration) equal to .TRUE. 

This should not be done if OPTMZE is true (in which case MAXC will be ignored). 
If SECONC and MAXC are both true (and OPTMZE is not), the program maximizes the, 
geometric concentration ratio of the primary both with and without the secon- 
dary. The initial default value of MAXC is .FALSE. 


4. Maximization of Intercept Factor 

Maximization of intercept factor at a given concentration ratio is 
requested by setting MAXPHI (MAXimum intercept factor) equal to .TRUE. This 
should not be done if OPTMZE or MAXC is .TRUE, (in which case MAXPHI will be 
ignored). If SEC(X)C and MAXPHI are both .TRUE., the program maximizes the 
intercept factor of the primary both with and without the secondary. The ini- 
tial default value of MAXPHI is .FALSE. 

Note; If OPTMZE, MAXC, and MAXPHI are all .FALSE, (the initial default 
value), the program will use the input or default values of the geometric con- 
centration ratio and the intercept factor (with and without a secondary con- 
centrator if SECCNC is .TRUE.) 
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5. Maximization of Geometric Concentration Ratio of Secondary 

If both MAXSEC and SECONC are .TRUE., the program will calculate and 
use the maximum secondary concentration ratio compatible with the character- 
istics of the primary and with the secondary intercept factor. The initial 
default value of MAXSEC is .FALSE. 


6. Shape of Concentrator 

If PARAB is .TRUE., the overall contour of the (primary) concentrator 
is taken to be paraboloidal. If PARAB is .FALSE., the overall contour is taken 
to be flat. The initial default value is .TRUE. 


B. OPTIONS PERTAINING TO POWER CONVERSION CHARACTERISTICS 

Power conversion characteristics may be input either as an effectiveness 
(that is, a constant fraction of Carnot efficiency) or as an array of effici- 
ency values, corresponding to the receiver temperatures. Also, the effective- 
ness or the array of efficiencies can be given either for the power conversion 
subsystem as a whole, for the engine only, or for the thermodynamic cycle only. 

If IPCSEF (input PCS EFficiencies) , lENGEF (input ENGine EFficiencies) , or 
ICYCEF (input CYCle EFficiencies) is set .TRUE., the program expects input of a 
corresponding array of efficiencies. Not more than one of these variables 
should be set .TRUE. If two or three are set .TRUE., the program will inter- 
pret the efficiency array as pertaining to IPCSEF or lENGEF, in that order of 
preference. 

If IPCSEF, lENGEF, and ICYCEF are all .FALSE, (the initial default value), 
the program will use the input or default value of PCEFCT (PCs EFfeCTiveness) 
if it is greater than zero. If PCEFCT is zero (or less), the program will use 
ENEFCT (ENgine EFfeCTiveness) if it is greater than zero. Otherwise, the pro- 
gram will use CYCECT (CYCle EffeCTiveness) . 

Notes: If only the collector is of interest, this may be designated by 

IPCSEF, lENGEF, and ICYCEF all .FALSE, (their initial default value) and 
PCEFCT, ENEFCT, and CYCECT all zero. The initial default values of ENEFCT and 
CYCECT are zero, but that of PCEFCT is not. Thus, if the initial default 
values are still in use for a data set, it is only necessary to input 
PCEFCT =0.0. 


C. OPTION PERTAINING TO INPUT 

To enter either new receiver temperatures or a new table of efficiencies 
for power conversion, NWTORF (NeW Temperature OR eFficiencies) must be set 
.TRUE. To enter a new table of efficiencies for power conversion, IPCSEF, 
lENGEF, or ICYCEF must also be set .TRUE. 
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The last sentence does not apply to entering a new effectiveness for power 
conversion, which is done by entering the desired value of PCEFCT, ENEFCT, or 
CYCECT, with IPCSEF, lENGEF, and ICYCEF all set .FALSE, and with NWTORF either 
.TRUE, or .FALSE. 

The default value of NWTORF is .TRUE, for the first data set and .FALSE, 
for all subsequent data sets. The default value of NWTORF is not determined by 
its value in the preceding data set. 


D. OPTIONS PERTAINING TO OUTPUT 

1. Extract of Output 

Output of CONC/11 is one or two pages per data set; if many data sets 
are input, the output will be many pages. If .XTRACT. is set .TRUE., the pro- 
gram will also provide an extract of the output. This consists, for each data 
set, of an echo of the NAMELIST and receiver temperature inputs, plus outputs 
for the lowest and highest receiver temperatures and for the tonperature 
that gives the highest system efficiency. 

If .XTRACT. is .TRUE., CONC/ll catalogs and assigns a file named XTRACT 
and places the extract in this file. Each run of CCXJC/ll catalogs and assigns 
a new cycle of XTRACT. 

The initial default value of XTRACT is .FALSE. 


2. Partial Suppression of Output 

When both SECONC and OPTMZE are .TRUE., the standard output for each 
receiver temperature is too long to fit on one line of output, and therefore is 
folded over to a second line. Appropriate headings are printed for this line; 
nevertheless, the folding makes the main output table harder to read and doubles 
its length. If SUP2 (SUPpress 2nd line) is set .TRUE., output of the second 
line is suppressed. The quantities otherwise printed on this line are the geo- 
metric concentration ratio and intercept factor of the compound concentrator 
and, if MAXSEC is .TRUE., the geometric concentration ratio of the secondary 
concentrator. 

The initial default value of SUP2 is .FALSE. 


3. More Decimal Places 


In the standard output, efficiencies are given to three decimal 
places. If M)RDEC (MDRe DECimal places) is set .TRUE., efficiencies will be 
given to five decimal places. 

The initial default value of MDRDEC is .FALSE. 
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APPENDIX C 
SAMPLE CASES 


Case A 4 . C-3 

Case B C-9 

Case C C~17 

Case D C-33 
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CASE A 


Only collector of interest. (Not power conversion.) 
Two data sets. 

OONC/11 assumed to be in file SOLAR. 

Control, input, and output by interactive terminal. 
-^-Indicates input. 


Notes on results: 

For the selected input values, including an insolation of 800 W/m^, 
increasing the receiver temperature from 700 to 800°c lowers collector effi- 
ciency from 0.79 to 0.76. If the insolation is increased to 1000 W/m^, the 
corresponding efficiencies rise. The efficiency increase is greater at the 
higher receiver temperatures. 
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■**!►@RUN ABC» 12345. DEF 


-^•@ASG»A SOLAR 
READY 

■•ifeXQT SOLAR. CONC/ 11 


ENTER INPUT VALUES (NAMELIST, WITH NAME 
i^NLIST PCEFCT=0.0, 

ENLIST PCEFCT=0.0» 

ENTER RECEIVER TEMPERATURES (Ml, M2, M3 


^§►700,800,25 

ITRCl, ITRC2, 

ENLIST 

INS 

RHOl 

RH02 == 

BSl 
B32 
PH 1 1 
PHI IS 
PH 1 2 

Cl * 

CIS 

C2 = 

F = 

RMA = 

SLOPER = 
SPEC:lJL = 
SOLSD = 
ALPHA 
EPS 

TAC = 

HC = 

ARATIO = 


HK 

DTRE = 
TOC 

PCEFCT = 
ENEFCT = 
CYCECT = 
MECHE 
ALIKE 
GEARE 
GENE 
PPE 


ITRC3 = 700, 

. 80000000E+03 
. 90000000E+00 
. OOOOOOOOE+00 
. lOOOOOOOE+01 
. OOOOOOOOE+00 
. 95000000E+00 
. OOOOOOOOE+00 
. OOOOOOOOE+OO 
. lOOOOOOOE+04 
. lOOOOOOOE+04 
. OOOOOOOOE+OO 
. 60000000E+00 
. 45239635E+02 
. 20000000E+01 
. 50000000E+00 
. 23000000E+01 
. lOOOOOOOE+01 
. lOOOOOOOE+01 
. 20000000E+02 
. OOOOOOOOE+OO 
. OOOOOOOOE+OO 
, OOOOOOOOE+OO 
. 25000000E+02 
. 50000000E+02 
. OOOOOOOOE+OO 
. OOOOOOOOE+OO 
. OOOOOOOOE+OO 
. OOOOOOOOE+OO 
. OOOOOOOOE+OO 
, OOOOOOOOE+OO 
. OOOOOOOOE+OO 
. 95000000E+00 


OPTMZE = F 
PARAB = T 
MAXC = F 
MAXPHI = F 
SECONC = F 
MAXSEC = F 
I PCSEF = F 
lENGEF = F 
ICYCEF == F 
NWTORF = T 
X TRACT * F 
SUP2 = F 
MORDEC = F 
«END 


"NLIST") 

$END 

«END 

INTEGER) 

800, 



RECEIVER TEMP. 

COLLECTOR 

c 

F 

EFFIC. 

700.0 

1292.0 

.792 

725.0 

1337.0 

.785 

750.0 

1382. 0 

.778 

775.0 

1427.0 

.770 

800.0 

1472.0 

.762 


PCS 

SYSTEM 

FRAC.MAX. 

EFFIC. 

EFFIC. 

SYS. EFFIC 

. 000 

.000 

.000 

.000 

.000 

.000 

. 000 

.000 

. 000 

. 000 

. 000 

.000 

. 000 

. 000 

. 000 
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cjET 2 

enter input values (NAMELIST, 
KNLIST INS=1000.0, 


ENLIST 

ENLIST 

INS 

RHOl 

RH02 

BSl 

BS2 

PHIl 

PHIIS 

PHI2 

Cl 

CIS = 

s 

F 

RMA 

SLOPER = 

SPECUL = 

SOLSD 

ALPHA 

EPS 

TAC 

HC 

ARATIO = 
HK = 

DTRE 

TOC = 

PCEFCT = 
ENEFCT = 
CYCECT = 
MECHE 
AUXE 
GEARE 
GENE 
PPE 

OPTMZE = 
PARAB * 
MAXC 

MAXPHI = 
SECONC = 
MAXSEC = 
IPCSEF = 
lENGEF = 
ICYCEF = 
NWTORF * 
XTRACT » 
SUP2 = 
MORDEC = 

♦END 

♦ 


INS=1000.0, 

. lOOOOOOOE+04 
. 90000000E+00 
. OOOOOOOOE+00 
. lOOOOOOOE+01 
. OOOOOOOOE+00 
. 95000000E+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. lOOOOOOOE+04 
. lOOOOOOOE+04 
. OOOOOOOOE+00 
. 60000000E+00 
. 45239635E+02 
. 20000000E+01 
. 50000000E+00 
. 23000000E+01 
. lOOOOOOOE+01 
. lOOOOOOOE+01 
. 20000000E+02 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. 25000000E+02 
. 50000000E+02 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. OOOOOOOOE+00 
. 95000000E+00 
F 
T 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


WITH NAME "NLIST") 

♦END 

♦END 
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RECEIVER TEMP. COLLECTOR PCS 


SYSTEM 


FRAC.MAX 


c 

-E. 

EFFIC. 

EFFIC. 

EFFIC. 

SYS.EFFI 

700.0 

1292.0 

.805 

. 000 

. 000 

. 000 

725. 0 

1337.0 

. 799 

. 000 

- 000 

. 000 

750.0 

1382. 0 

. 793 

. 000 

. 000 

. 000 

775.0 

1427.0 

.737 

. 000 

.000 

. 000 

900 . 0 

1472.0 

. 780 

. 000 

. 000 

. 000 


SET 3 

ENTER INPUT VALUES (NAMELIST, WITH NAME "NLIST") 
-•iifc©EOF 


STOP NORMAL 
-■ii^FIN 
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CASE B 


Power conversion effectiveness entered as fraction of Carnot. 

Two data sets. 

CONC/11 restored from MASSTOR. 

Control and input by interactive terminal. Output breakpointed to file 
for printer. 


Notes on results: 

For the selected input values, including a reflectance of 0.90, the system 
efficiency is highest (0.30) at a receiver temperature of 775-800°C. However, 
the system efficiency at 650°C is 0.29, or 98% of the peak efficiency. If the 
reflectance is reduced to 0.80, the peak system efficiency falls to 0.26, and 
occurs at a slightly lower receiver temperature (750-775°C). 
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♦ ♦♦ti 


1 100 /so A 


♦eRUN ABC, 12345, DEF 
-►eSRD 

SRD IRl SL74R1 12/14/83 12:50:16 
eXQT SYS¥*TEST1.S-R-D 

S U I F (C) COPYRIGHT 1982 MASSTOR SYSTEMS 
-►RESTORE MYFILE FROM JAFFE#S0LAR1 
RESTORE: COMMAND ACCEPTED 

CONNECT REQUEST TO ASSIGN SVSS FILE JAFFE#S0LAR1 


37R2C 


JPL 


SVSS FILE READY 

O TRACKS TRANSFERRED 
32 TRACKS TRANSFERRED 
DATA RESTORED 

RESTORE: COMMAND COMPLETED 
♦STOP 

END OF S/R/D 
-►®BK1 

PREAKPOINTED 
gXQT MYF I LE . CONC/ 1 1 
ENLIST PCEFCT=0.60, 

£.50,850, 25 

ENLIST RH01=0.S0, 

@BK2 LSPH,506/13 
@SYM OEF #BKF I L^ABC ( 1 ) . , 506/ 1 3 , LSPH 

SYMMED BY ABC 
-►ePIN 


*END 

4iEND 
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aXQT KYFILE.CONC/11 
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SET 1 

ENTER INPUT VALUES (NAMELISTt WITH NAME "NLIST") 


SNLIST PCEFCT=0.60, 

ENTER RECEIVER TEMPERATURES 

(Ml »M2*M3 

INTEGER) 


SEND 

ITRClt ITRC2» ITRC3 = 
SNLIST 

650» 

850* 

25 



INS = .80000000E+03 

RHOl = .90000000E+00 

RH02 = .OOOOOOOOE+00 

BSl = .lOOOOOOOE+01 

BS2 = .OOOOOOOOE+00 

PHIl = .95000000E+00 

PHIIS = .OOOOOOOOE+00 

PHI2 = .OOOOOOOOE+00 

Cl = .lOOOOOOOE+04 

CIS = .lOOOOOOOE+OA 

C2 = .OOOOOOOOE+00 

F = .60000000E+00 

RMA = .45239635E + 02, 

SLOPER = .20000000E+01 

SPECUL = .50000000E+00 

SOLSD = .23000000E+01 

ALPHA = .lOOOOOOOE+01 

EPS = .lOOOOOOOE+01 

TAC = .20000000E+02 

HC = .OOOOOOOOE+00 

ARATIO = .OOOOdOOOE+00 

HK = .OOOOOOCOE+00 

DTRE = .25000000E+02 

TOC = .50000000E+02 

PCEFCT = .60000000E+00 

ENEFCT = .OOOOOOOOE+00 

CYCECT = .OOOOOOOOE+00 

MECHE = .OOOOOOOOE+00 

AUXE = .OOOOOOOOE+00 

GEARE = .OOOOOOOOE+00 

GENE = .OOOOOOOOE+00 

PPE = .95000000E+00 

OPTMZE = F 
PARAB = T 
MAXC = F 
MAXPHI = F 
SECONC = F 
HAXSEC = F 
IPCSEF = F 
lENGEF = F 
ICYCEF = F 
NWTORF = T 
XTRACT = F 
SUP2 = F 
MORDEC = F 
SEND 


C-12 



ascavLa-isiiEi 

COLLECTOR 

PCS 

SYSTEM 

FRAC.MAX. 

_£_ 

_E- 


EEEI£. 

£EE1£. 

SISi.£EEI£ 

650.0 

1202.0 

.804 

.384 

.293 

.977 

675.0 

12^7.0 

.798 

.390 

.296 

.985 

700.0 

1292.0 

.792 

.396 

.298 

.991 

725.0 

1337.0 

.785 

.401 

.299 

.996 

750.0 

1382.0 

.778 

.406 

.300 

.999 

775.0 

l<^27.0 

.770 

.410 

.300 

1.000 

800.0 

1472.0 

.762 

.415 

• 300 

1.000 

825.0 

1517.0 

.752 

.419 

• 300 

.998 

850.0 

1562.0’ 

.743 

.423 

.299 

.995 
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SET 2 

ENTER INPUT VALUES (NAMELIST* WITH NAME "NLIST") 
$NLIST RH01=0.80» 


SNLIST 

INS 

- 


•80000C00E+03 

RHOl 

= 


•80000000E+00 

RH02 

r 


.OOOOOQOOE-^00 

BSl 

— 


• 10000000E-*-01 

ES2 

- 


. 0000000 OE-^0 0 

PHIl 

z 


.95000000E+00 

PHIIS 

z 


.OOOOOOOOE+00 

PHI2 

r 


.OOOOOOOOE+00 

Cl 

r 


.lOOOOOOOE+04 

CIS 

r 


.lOOOOOOOE+OA 

C2 

r 


.OOOOOOOOE+OO 

F 

- 


.60000000E+00 

RMA 

r 


.45239635E+02 

SLOPER 

r 


.20000000E+01 

SPECUL 

r 


.50000000E+00 

SOLSD 

r 


.23000000E+01 

ALPHA 

= 


.lOOOOOOOE+01 

EPS 

z 


.lOCOOOOOE+01 

TAC 

z 


.20000000E+02 

HC 

z 


.OOOOOOOOE+OO 

ARATIO 

z 


.OOOOOOOOE+OO 

HK 

z 


.OOOOOOOOE+OO 

DTRE 

z 


.25C00000E+02 

TOC 

r 


.50000000E+02 

PCEFCT 

- 


.60000000E+00 

ENEFCT 

= 


.OOOOOOOOE+OO 

CYCECT 

= 


.OCOOOOOOE+00 

MECHE 

r 


.OOOOOOOOE+OO 

AUXE 

- 


.OOOOOOOOE+OO 

GEARE 

— 


.OOOOOOOOE+OO 

GENE 

r 


.OOOOOOOOE+OO 

PPE 

r 


.95000000E+00 

0PTM2E 

= 

F 


PARAB 

z 

T 


MAXC 

r 

F 


MAXPHI 

= 

F 


SECONC 

r 

F 


MAXSEC 

z 

F 


IPCSEF 

z 

F 


lENGEF 

r 

F 


ICYCEF 

— 

F 


NWTORF 

z 

F 


XTRACT 

= 

F 


SUP2 

= 

F 



MORDEC = F 
SEND 


SEND 
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ECEIVER 

TEMP. 

COLLECTOR 

_£_ 

_£_ 

_££EI£a 

650.0 

1202.0 

.709 

675.0 

1247.0 

.703 

700.0 

1292. 0 

.697 

725.0 

1337.0 

.690 

750.0 

1382.0 

.683 

775.0 

1427.0 

.675 

8C0.0 

1472.0 

.667 

825.0 

1517.0 

.657 

850.0 

1562.0 

.648 


PCS 

SYSTEM 

FRAC.MAX. 

£££!£. 

£££!£. 

SYS.EFFIC 

.384 

.259 

.983 

.390 

.261 

.990 

.396 

.262 

.995 

.401 

.263 

.998 

.406 

.263 

1.000 

.410 

.263 

1.000 

.415 

.263 

.993 

.419 

.262 

.995 

.423 

.261 

.990 
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SET 3 

ENTER INPUT VALUES (NAMELIST* WITH NAME "NLIST") 


STOP NORMAL 
3BK2 LSPH, 506/13 
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CASE C 


Receiver aperture optimized. 

Thermodynamic cycle effectiveness input as fraction of Carnot. 

Five data sets. 

New receiver temperatures input for last data set. 

Extract of output prepared. 

CONC/11 assumed to be in file SOLAR. 

Control by interactive terminal. Data input from file. Output break- 
pointed to file for printer. 


Notes on results: 

For the selected input values, the system efficiency at 700°C falls from 
0.28 to 0.24 as the slope error increases from 0.5 to 5.0 mrad. At 800°C, the 
system efficiency falls from 0.29 to 0.24 over this range of slope errors. The 
receiver temperature at which system efficiency peaks is 860°C or higher for 
slope errors of 0.5 to 3.0 mrad. For a slope error of 5.0 mrad, the temperature 
for peak system efficiency is 710°C or slightly lower. The optimum geometric 
concentration ratio is about 6500 at a slope error of 0.5 mrad, about 650 at 5.0 
mrad. The corresponding optimum intercept factors are 0.996 and 0.97. 
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♦♦♦ ♦ ♦ ♦ ♦♦♦♦♦♦♦♦♦ 


-► ©RUN ABC , 1 2345 , DEF 
-►@ASG,A SOLAR 
READY 


-►eCAT.P DATAFILE 
READY 

-►©ASG.A DATAFILE 
READY 

-►©EDM DATAFILE. C 

ED-A 29B 12/14/83 13:41 C(0):F 
INPUT 


0NL 1ST SL0PER=0 . 5 , 

MECHF=0.9, AUXE=0. 

00 , 860 7 20 


OPTMZE=T, C;YCECT=0. 

95, GEARE=0.9, 


65, 

GENE=0.9S. 


♦NLIST 

SL0PER=1.0, 


♦NLIST 

SL0PER=2.0, 


♦NLIST 

SL0PER=3.0, 


♦NLIST 

NWTORF=T, 

SLOPER 


700, 


060 , 1 0 


XTRACTsT, *END 
«ENO 
»ENO 
♦END 
♦END 


•:ND edit 8 LINES OUTPUT 
3CAT,P 0UTFILE<+1) 


=«EADY 

aASG,A OUTFILE 


2BK1 

BREAI 


SXQT 


OUTFILE 

■::pointed 

SOLAR. CONC/ 1 


1 


SADD,L DATAFILE.C 
3BK2 LSPH,506/13 
©SYM DEF »0UTFILE(1). ,506/13, LSFH 
SYMMED BY ABC 

-►©BLK, S XTRACT, 506/13, LSPH 


BLOCK 5.13 SL74R1 12/14/83 13:41:32 
10 PAGES SENT TO: 506/13, LSPH 
-►©FIN 
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fflXQT SOLAR. CONC/11 



SET 1 

ENTER INPUT VALUES (NAHELISTt WITH NAME "NLIST") 

SNLIST SLOPER=0.5» 0PTM2E=T» CYCECT=0.65» 

MECHE=0.9* AUXE=0.95* GEARE=0.9* GENE=0.98t XTRACT=Ti $END 

ENTER RECEIVER TEMPERATURES (MlfM2,M3 INTEGER) 

ITRCl* ITRC2* ITRC3 = 700, 860t 20 

SNLIST 

INS = .80000000E+03 

RHOl = .90000000E+00 

RH02 = .OOOOOOOOE+OO 

BSl = .lOOOOOOOE+01 

BS2 = .OOOOOOOOE+00 

PHIl = .OOOOOOOOE+00 

PHIIS = .OOOOOOOOE+00 

PHI2 = .OOOOOOOOE+00 

Cl = .OOOOOOOOE+00 

CIS = .OOOOOOOCE+00 

C2 = .OOOOOOOOE+OO 

F = .600000C0E+00 

RHA = .45239635E+02 

SLOPER = .50000000E+00 

SPECUL = .50000000E>00 

SOLSD = .230000C0E+01 

ALPHA = .lOOOOOOOE+Ol 

EPS = .lOOOOOOOE+01 

TAC = .20000000E+02 

HC = .OOOOOOOOE+00 

ARATIO = .OOOOOOOOE+00 

HK = .OOOOOOOOE+00 

DTRE = .2500C000E+02 

TOC = .50000000E+02 

PCEFCT = .50000000E+00 

ENEFCT = .OOOOOOOOE+00 

CYCECT = .65000000E+00 

MECHE = .90000000E+00 

AUXE = .95000000E+00 

GEARE = .90000000E+00 

GENE = .98000000E+00 

PPE = .95OOCC0OE+OO 

0PTM2E = T 
PARAB = T 
MAXC = F 
MAXPHI = F 
SECONC = F 
MAXSEC = F 
IPCSEF = F 
lENGEF = F 
ICYCEF = F 
NWTORF = T 
XTRACT = T 
SUP2 = F 
MORDEC = F 
SEND 
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££c.£i\t&a_I£fl£. 

GEOM. INTERCEPT 

COLLECTOR 

PCS 

SYSTEM 

FRAC.MAX 




£A£iaa 

£££!£. 

£££!£• 

£££!£. 

SISjl£££1£ 

700.0 

1292.0 

5827.8 

.998 

.887 

.330 

.278 

.940 

720.0 

1328.0 

5905.3 

.998 

.887 

.333 

.281 

.949 

740.0 

1364.0 

5983.2 

.998 

.886 

.336 

.283 

.957 

760.0 

1400.0 

6061.5 

.998 

.885 

.340 

.285 

.965 

780.0 

1436.0 

6140.3 

.997 

.884 

.343 

.288 

.973 

800.0 

1472.0 

6219.6 

.997 

.882 

.346 

.290 

.980 

820.0 

1508.0 

6299.4 

.997 

.881 

.349 

.292 

.987 

840.0 

1544.0 

6379.8 

.997 

.880 

.352 

.294 

.994 

860.0 

1580.0 

6460.7 

.996 

.879 

.354 

.296 

1.000 



SET 2 

ENTER INPUT 

VALUES (NAMELISTt WITH NAME "NLIST") 

SNLIST 

SNLIST 

INS 



SLOPER=1.0 ♦ 

.80000000E+03 

RHOl 

r 


,9000CC00E+00 

RH02 

= 


. 0 0 0 0 0 0 0 0 E 0 0 

ESI 

= 


. 1 0 0 0 0 0 0 0 E 0 1 

BS2 

z 


.COOOOOOOE+00 

PHIl 

z 


.OOOCOOOOE+00 

PHIIS 

= 


.OOOOOOOOE+00 

PHI2 

z 


.OOOOOOOOE+00 

Cl 

r 


.OOOOOOOOE+00 

CIS 

z 


.COOOCCOOE+00 

C2 

z 


.OOOOOOOOE+00 

F 

z 


.6C0C0000E+00 

RMA 

z 


.A5239635E+02 

SLOPER 

z 


.lCOOOOOOE+01 

SPECUL 

z 


.50000C00E+00 

SOLSD 

z 


.23000000E+01 

ALPHA 

z 


.lOOOOOOOE+01 

EPS 

z 


.lOOOOOOOE+01 

TAC 

z 


. 2 0 0 0 0 0 C 0 E + 0 2 

HC 

z 


.OOOOOOOOE+00 

ARATIO 

z 


.OOOOOOOOE+00 

HK 

z 


.OOOOOOOOE+00 

DTRE 

r 


.25000000E+02 

TOC 

z 


.50000CC0E+02 

PCEFCT 

r 


.50000000E+00 

ENEFCT 

z 


.OOOOOOCOE+00 

CYCECT 

z 


.6500000CE+00 

MECHE 

z 


.90000000E+00 

AUXE 

z 


.9500000CE+00 

GEARE 

z 


.90000000E+00 

GENE 

z 


.9600GC0CE+00 

PPE 

= 


,95000000E>00 

OPTMZE 

z 

▼ 

1 


PARAB 

z 

T 


HAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

F 


MAXSEC 

z 

F 


IPCSEF 

z 

F 


lENGEF 

z 

F 


ICYCEF 

z 

F 


NWTORF 

z 

F 


XTRACT 

= 

T 


SUP2 

= 

F 


MORDEC 

z 

F 



SEND 


SEND 
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R£££Ilt£S 

. TEMP. 

GEOM. INTERCEPT 

COLLECTOR 

PCS 

SYSTEM 

FRAC.KAX 

«£_ 

_£_ 


£A£iaa 

£££!£. 

EFFIC. 

£££!£. 

£1S.£E£1£ 

7C0.0 

1292.0 

4251.9 

.997 

.883 

.330 

• 276 

.943 

720.0 

1328.0 

4312.0 

.997 

.881 

.333 

.279 

.952 

740.0 

1364.0 

4372.7 

.997 

.880 

.336 

.281 

.960 

760.0 

1400.0 

4433.7 

.996 

.879 

.340 

.284 

• 968 

780.0 

1436.0 

4495.3 

.996 

.877 

.343 

.286 

.975 

600.0 

1472.0 

4557.3 

.996 

.876 

.346 

.288 

.982 

820.0 

1508.0 

4619.9 

.996 

.874 

.349 

.290 

.988 

840.0 

1544.0 

4683.0 

.995 

.873 

.352 

.291 

.994 

860.0 

1580.0 

4746.7 

.995 

.871 

.354 

.293 

1.000 
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SET 

3 



ENTER INPUT 
SNLIST 
SNLIST 

VALUES (NAMELIST* WITH NAME "NLIST") 
SLOPER=2.0* 

INS 

r 


.80000000E>03 

RHOl 

r 


•90000000E+00 

RH02 

r 


• OOOOOOOOE-^00 

BSl 

r 


• lOOOOOOOEt-01 

BS2 

r 


• OOOOOOOOE^-OO 

PHIl 

r 


.OOOOOOOOE^OO 

PHIIS 

- 


•00000000E>0C 

PHI2 

r 


• OOOOOOOOE-fOO 

Cl 

= 


• OOOOOOOOE-^00 

CIS 

r 


• OOOOOOOOE-^00 

C2 

r 


.ooooooooE>oo 

F 

r 


.G0000000E4-00 

RMA 

- 


.A5239635E+02 

SLOPER 



• 20000000E-^01 

SPECUL 

= 


.5000COO0E4-0O 

SOLSD 

r 


.23000000E'»01 

ALPHA 

r 


• lOOOOOOOEi-Ol 

EPS 

r 


.lOOOOGOOE-^01 

TAC 

r 


.20000000E-»02 

HC 

X 


•OOOOQOOOE^OO 

ARATIO 

= 


«00000000E4-00 

HK 

r 


•OOOOOOOOE^OO 

DTRE 

r 


•25000000E+02 

TOC 

s 


•50000000E+02 

PCEFCT 

2 


•SOOGOOOOE^OO 

ENEFCT 

r 


• OOOOOOOOE-^00 

CYCECT 

r 


• G5000000E-^00 

MECHE 

r 


.90000000E+00 

AUXE 

r 


.95000000E+00 

GEARE 

r 


.90000000E+00 

GENE 

= 


.98000000E+00 

PPE 

r 


.95000000E+00 

OPTMZE 

r 

T 


PARAB 

r 

T 


MAXC 

= 

F 


MAXPHI 

r 

F 


SECONC 

r 

F 


MAXSEC 

= 

F 


IPCSEF 

= 

F 


lENGEF 

r 

F 


ICYCEF 

r 

F 


NWTORF 

2 

F 


XTRACT 

r 

T 


SUP2 

r 

F 


MORDEC 

SEND 


F 



SEND 
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E£££ii£E 

TEMP. 

GEOM. INTERCEP 


_£_ 

CfltlCxaAIia 

EACiaB. 

700.0 

1292.0 

2186.1 

.994 

720.0 

1323.0 

2222.1 

.993 

740.0 

1364.0 

2258.5 

.993 

760.0 

1400.0 

2295.4 

.992 

760.0 

1436.0 

2332.7 

.991 

600.0 

1472.0 

2370.5 

.991 

820.0 

1508.0 

2408.9 

.990 

840.0 

1544.0 

2447.7 

.989 

860.0 

1580.0 

2487.1 

.988 


COLLECTOR 

PCS 

SYSTEM 

FRAC.MAX 


£££!£• 

£££!£• 

SlS.£FFi£ 

.865 

.330 

.271 

.956 

.863 

.333 

.273 

.963 

.860 

.336 

.275 

.970 

.858 

.340 

.277 

.976 

.855 

.343 

.278 

.982 

.852 

.346 

• 280 

.987 

.849 

.349 

.281 

.992 

.846 

.352 

.282 

.996 

.843 

.354 

• 284 

1.000 
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SET 

A 



ENTER INPUT 

VALUES (NAMELIST» WITH NAME "NLIST") 

SNLIST 



SLOPER=3.0» SEND 

JNLIST 




INS 

r 


.80000000E-*-03 

RHOl 

r 


.90000000E+00 

RH02 

r 


.OOOOOOOOE-^OO 

esi 

z 


•lOOOOOOOE^Ol 

BS2 

- 


.OOOOOOOOE-^00 

PHIl 

r 


.OOOOOOOCE+00 

PhllS 

r 


.OOOOOOOOE+00 

PHI2 

z 


• OOOOOOOOE4-00 

Cl 

z 


. 0 0 0 0 0 0 0 0 E 0 0 

CIS 

- 


• OCOOOOOOE-^OO 

C2 

z 


. 0 0 0 0 G 0 0 0 E 0 0 

F . 

z 


.6G000000E+00 

RMA 

z 


.A5239635E+02 

SLOPER 

z 


.30000000E+01 

SPECUL 

r 


.50000C00E<-00 

SOLSD 

z 


.23000000E>01 

ALPHA 

z 


.lOOOOOOOE+01 

EPS 

z 


• lOOOOOOOE-^Ol 

TAC 

z 


.20000000E+02 

HC 

z 


.OOOOOOOOE+00 

ARATIO 

z 


.OOOOOOOOE4-00 

HK 

z 


• OOOOOOOOE4-00 

DTRE 

z 


.25000C00E+02 

TOC 

z 


.5000CC00E+C2 

PCEFCT 

z 


.5COCOOOOE+00 

ENEFCT 

z 


.OOOOOOCOE+00 

CYCECT 

z 


.65000000E+00 

MECHE 

z 


.90000000E1-00 

AUXE 

z 


• 95000000E-*'00 

6EARE 

z 


.90000000E+00 

GENE 

z 


.980000C0E+00 

PPE 

z 


.95000000E+00 

OPTMZE 

z 

T 


PARAB 

z 

T 


MAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

F 


MAXSEC 

z 

F 


IPCSEF 

z 

F 


lENGEF 

z 

F 


ICYCEF 

z 

F 


NWTORF 

z 

F 


XTRACT 

r 

T 


SUP2 

z 

F 


MORDEC 

z 

F 



SEND 
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RECEIV^a_I£!lP. GEOM. INTERCEPT 


_£_ 

_E_ ; 

££il£ARAIlQ 

EA£I£R 

700.0 

1292. 0 

1302.5 

.988 

720.0 

1328.0 

1327.2 

.987 

740.0 

1364.0 

1352.4 

.986 

760.0 

1400.0 

1377.9 

.984 

78 0..0 

1436.0 

1404.0 

.983 

800.0 

1472.0 

1430.4 

.982 

820.0 

1508.0 

1457.4 

.981 

840.0 

1544.0 

1484.9 

.979 

860.0 

1580.0 

1512.9 

.977 


COLLECTOR 

PCS 

SYSTEM 

FRAC.MAX 

£EE1£. 

EFFIC. 

EFFIC. 

SYS. EFFIC 

.841 

.330 

.263 

.974 

.837 

.333 

.265 

.980 

.832 

.336 

.266 

.985 

.828 

.340 

.267 

.989 

.823 

.343 

.268 

.992 

.818 

.346 

.269 

.995 

.813 

.349 

.269 

.998 

.803 

.352 

.270 

.999 

.803 

.354 

.270 

1.000 
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SET 5 

ENTER INPUT VALUES (NAMELIST* WITH NAME "NLIST") 
$NLIST NWTORF=T* SLOPER=5.0» 

ENTER RECEIVER TEMPERATURES (M1*M2»M3 INTEGER) 

700* 860* 


ITRCl* 

ITRC2, 

ITRC3 = 

$NLIST 

INS 

2 


.80000000E«03 

RHOl 



•90000000E«00 

RH02 

r 


• OOOOOOOOE-^00 

BSl 

- 


•lOOOOOOOE^Ol 

BS2 

s 


•OOOOOOOOE^OO 

PHIl 

r 


•OOOOOOOOE^OO 

PHIIS 

r 


• ooooooooE-«-oo 

PHI2 

s 


• OOOOOOOOE-^00 

Cl 

r 


•000O0000E400 

CIS 

s 


• OOOOOOOOE-i-00 

C2 

- 


• OOOOOOOOE-^00 

F 

r 


.GOOOOOOOE-^OO 

RMA 

r 


.A5239635E+02 

SLOPER 

= 


• 50000000E-I-01 

SPECUL 

- 


• 50000000E4-00 

SOLSD 

= 


• 23000000E-I-01 

ALPHA 

r 


• lOOOOOOOE-^01 

EPS 

z 


• lOOOOOOOE-^01 

TAC 

= 


• 20000000E<i>02 

HC 

s 


•OOOOOOOOE^OO 

ARATIO 

r 


•OOOOOOCOE+00 

HK 

r 


.OOOOCOOOE-^00 

DTRE 

s 


•25000000E*02 

TOC 

s 


• 50000000E4-02 

PCEFCT 

= 


• SOOOOOOOE-^OO 

ENEFCT 

z 


• OOOOOOOOE-^00 

CYCECT 

z 


.6500C000E-»00 

MECHE 

z 


.90000000E+C0 

AUXE 

= 


.95000000E+00 

GEARE 

z 


.90000000E+00 

GENE 

z 


• 98000000E-^00 

PPE 

z 


•95000000E+00 

OPTMZE 

z 

T 


PARAB 

z 

T 


MAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

F 


MAXSEC 

z 

F 


IPCSEF 

z 

F 


lENGEF 

* 

F 


ICYCEF 

z 

F 


NWTORF 

z 

T 


XTRACT 

z 

T 


SUP2 

■r 

F 


MORDEC 

z 

F 


$END 





10 


SEND 
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E.£CEi\/Ea_I£il£* 

GEOM. INTERCEPT 

COLLECTOR 

PCS 

SYSTEM 

FRAC.MAX 




£££!£. 

EFFIC. 

£££!£• 

SYS. EFFIC 

700.0 

1292. 0 

650.3 

.969 

.775 

.330 

.243 

1.000 

710.0 

1310.0 

658.1 

.968 

.771 

.331 

.243 

1.000 

720.0 

1328.0 

666.0 

.966 

.767 

.333 

.243 

1.000 

730.0 

1346.0 

674.1 

.965 

.763 

.335 

.243 

.999 

740.0 

1364.0 

682.2 

.964 

.758 

.336 

.242 

.999 

750.0 

1382.0 

690.4 

.962 

.754 

.338 

.242 

.998 

760.0 

1400.0 

698.8 

.961 

.750 

.340 

.242 

.997 

770.0 

1418.0 

707.3 

.959 

.745 

.341 

.242 

.995 

780.0 

1436.0 

715.9 

.957 

.741 

.343 

.241 

.994 

790.0 

1454.0 

724.6 

.956 

.736 

.344 

.241 

.992 

800.0 

1472.0 

733.5 

.954 

.731 

.346 

.240 

.990 

810.0 

1490.0 

742.5 

.952 

.726 

.347 

.240 

.987 

820.0 

1508.0 

751.6 

.950 

.721 

.349 

.239 

.985 

830.0 

1526.0 

760.9 

.949 

.716 

.350 

.238 

.982 

840.0 

1544. 0 

770.3 

.947 

.711 

.352 

.238 

.979 

850.0 

1562.0 

779.9 

.945 

.706 

.353 

.237 

.975 

860.0 

1580.0 

789.6 

.943 

.701 

.354 

.236 

.972 
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SET 6 

ENTER INPUT VALUES (NAMELISTf WITH NAME "NLIST") 
STOP NORMAL 
0BK2 LSPHf506/13 
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SET 1 


SNLIST SLOPER=0.5» 

OPTMZEs 

T. CYCECTsO 

.65* 


HECHE=0.9t AUXE= 

0.95. 

6EARE=0. 

9. 

GENEsO. 

98. XTRACT=T. SEND 

ITRCl, ITRC2i ITRC3 = 

700* 

860. 


20 


700.0 1292.0 5827.6 

.998 

.887 

.330 

.276 

• 940 

860.0 1580.0 6960.7 

.996 

.879 

.354 

.296 

1.000 

SET 2‘ 






SNLIST SLOPERsl.Of 





SEND 

700.0 1292.0 4251.9 

.997 

.883 

• 330 

.276 

.943 

860.0 1560.0 4746.7 

.995 

.871 

.354 

.293 

1.000 

SET 3 






SNLIST SLOPERs2.0t 





SEND 

700.0 1292.0 2186.1 

.994 

.865 

.330 

.271 

.956 

860.0 1580.0 2487.1 

.968 

.843 

.354 

• 284 

1.000 

SET 4 






SNLIST SLOPERS3.0* 





SEND 

700.0 1292.0 1302.5 

.988 

.841 

.330 

.263 

.974 

860.0 1580.0 1512.9 

.977 

.803 

.354 

• 270 

1.000 

SET 5 






SNLIST NWTORF=T» 

SL0PER=5 

.0* 



SEND 

ITRCl. ITRC2. ITRC3 = 

700 . 

860. 


10 


700.0 1292.0 650.3 

.969 

.775 

.330 

.243 

1.000 

710.0 1310.0 658.1 

.968 

.771 

.331 

.243 

1.000 

660.0 1580.0 789.6 

.943 

.701 

.354 

.236 

.972 


SET 6 
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CASE D 


Output with and without secondary concentrator. Secondary concentration 
maximized. Receiver aperture optimized. 

Engine efficiencies input as table. 

Ten data sets. 

New engine efficiencies input at sixth data set. 

Extract of output prepared. (The extract is printed before the standard 
output. For table headings, see the standard output.) 

C(XtC/ll assumed to be in file SOLAR. 

Batch run. 


Notes on results: 

For the selected input values, and without a secondary concentrator, sys- 
tem efficiency is highest at low focal ratio (0.4). With the engine effi- 
ciencies used in data sets 1-5, system efficiency at this focal ratio peaks at 
0.32 and a receiver temperature of 1450°C; the optimum geometric concentra- 
tion ratio for these conditions is 4700. With the engine efficiencies used in 
data sets 6-10, system efficiency at focal ratio 0.4 peaks at 0.38 and a 
receiver temperature of 1325°C; the optimum geometric concentration ratio 
for these conditions is 4200. 

If the receiver temperature is limited to 500°C, the system efficiencies 
attainable are 0.11 for the first set of engine efficiencies, and 0.19 for the 
engine efficiencies of data sets 6-10. If the receiver efficiency is limited 
to 900°C, a system efficiency of 0.27 (84% of the peak efficiency) can be 
obtained with the first set of engine efficiencies, and the optimum geometric 
concentration ratio is 3100. For the engine efficiencies of sets 6-10, a sys- 
tem efficiency of 0.34 (89% of peak) can be obtained; the optimum geometric 
concentration ratio is again 3100. 

Use of a secondary concentrator improves system efficiency at the longer 
focal ratios and higher receiver temperatures. Highest system efficiency (0.33 
for data sets 1-5, 0.39 for sets 6-10) is obtained at focal ratios of 0.8 or 
longer and receiver temperatures of 1500°C or higher. The optimum geometric 
concentration ratio of the primary is 2200 and 1500 for focal lengths of 0.8 
and 1.0, respectively; with the corresponding secondary geometric concentration 
ratios of 3.0 and 4.4, the overall geometric concentration ratio is 6800. The 
efficiencies attainable with a secondary concentrator are slightly higher than 
those attainable without a secondary. If, however, receiver temperature is 
limited to 900°c, system efficiencies attainable with a secondary are not as 
high as those attainable without one. 
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-»-aRUN ABC«12345»DEF 
♦aBLKiF ,506/13fLSPH 
-»-9ASG,A SOLAR 
♦■aXQT SOLAR. CONC/11 


-*• tNLIST 

F = 0 

.4, 

SECONC= 

T, 

RHC2=0 

.96, 

MAXSEC=T, 

OPTMZE 

-► IENGEF=Tf 

GENE 

=0.98, 

GEARE=0.9 

, 

XTRACT=T, 


JEND 


-*>500<1500 

,25 










.154, 

.175, 

.195, 

.214, 

.232 







.249, 

.265, 

.280, 

.293, 

.307, 

.318, 

.329, 

.339, 

.349, 

.359 


.367, 

.376, 

.385, 

.393, 

.401 , 

.409, 

.416, 

.424, 

.430, 

.437 


.443, 

.450, 

.457, 

.463, 

.470, 

.476, 

.483, 

.489, 

.495, 

.500 


.505, 

.511, 

.516, 

.522, 

.527, 

.533 






SNLIST 

F = 0 

.5, 








JEND 

♦ JNLIST 

F = 0 

.6 , 








JEND 

-► JNLIST 

F = 0 

.8, 








JEND 

JNLIST 

F = 1 

.0, 








JEND 

-► JNLIST 

F = 0 

.4, 

NUTORF 

= T, 






JEND 

♦500,1500 

,25 










♦ .254, 

.275, 

.295, 

.314, 

.332 







♦ .349, 

.365, 

.380, 

.393, 

.407, 

.418, 

.429, 

.439, 

.449, 

.459 


.467, 

.476, 

.485, 

.493, 

.501, 

.509, 

.516, 

.524, 

.530, 

.537 


♦ .543, 

.550, 

.557, 

.563, 

.570, 

.576, 

.583, 

.589, 

.595, 

.600 


-► .605, 

.611, 

.616, 

.622, 

.627, 

• 633 






♦ JNLIST 

F = 0 

.5, 








JEND 

♦ JNLIST 

F = 0 

.6 , 








JEND 

♦ JNLIST 

F = 0 

.8 , 








JEND 

JNLIST 

F = 1 

.0, 








JEND 


-»4BLKtS XTRACT«506/13»LSPH 
-•-8F1N 
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SET 1 


SNLIST 

F = 0.4 

, SECONC=T» RHO2=0. 

96, 

MAXSEC 

= T, 

OPTHZE=T 

, 






IENGEF=T, 

6ENE = 

0.98, 6EARE=0.9, 

XTRACT=T, 

SEND 








ITRCl, ITRC2» ITRC3 = 

500, 1500, 


25 









SOO.O 

932.0 

2251.7 

2192.6 .998 

.998 

.887 

.853 

-.034 

.136 

.114 

.110 

-.004 

.363 

.352 




1.23 2701.5 


.998 









1450.0 

2642.0 

4667.1 

4420.3 .951 

.958 

.722 

.713 

-.008 

.460 

.316 

.312 

-.004 

1.000 

.998 




1.23 5446.2 


.958 









1500.0 

2732.0 

4851.8 

4585.7 .945 

.953 

.706 

.700 

-.006 

.470 

.315 

.312 

-.003 

.999 

1.000 




1.23 5650.0 


.953 









SET 2 














SNLIST 

F = 0.5 

f 





SEND 







500.0 

932.0 

2142.0 

2012.1 .998 

.999 

.887 

.855 

-.032 

.136 

.114 

.110 

-.004 

.366 

.343 




1.55 3122.3 


.999 









1400.0 

2552.0 

4313.7 

3817.4 .953 

.969 

.729 

.743 

.014 

.451 

.312 

.318 

.006 

1.000 

.990 




1.55 5923.5 


.969 









1500.0 

2732.0 

4667.5 

4091.9 .941 

.961 

.697 

.720 

.023 

.470 

.311 

.321 

.010 

.997 

1.000 




1.55 6349.4 


.961 









SET 3 














SNLIST 

F = 0.6 

, 





SEND 







500.0 

932.0 

1845.9 

1669.2 .998 

.999 

.884 

.855 

-.029 

.136 

.114 

.110 

-.004 

.377 

.34 0 




1.97 3280.5 


.999 









1325.0 

2417.0 

3603.6 

2986.3 .954 

.975 

.730 

.764 

.034 

.437 

.303 

.317 

.014 

1.000 

.978 




1.97 5869.0 


.975 









1500.0 

2732.0 

4168.2 

3363.9 .930 

.963 

.669 

.726 

.057 

.470 

.299 

.324 

.026 

.986 

1.000 




1.97 6611.2 


.963 









SET 4 














SNLIST 

F:0.8 

, 





SEND 







500.0 

932.0 

1322.2 

1109.5 .996 

.999 

.878 

.856 

-.022 

.136 

.113 

.110 

-.003 

.405 

.339 




3.04 3376.7 


.999 









1225.0 

2237.0 

2526.4 

1849.0 .946 

.982 

.711 

.785 

.074 

.415 

.280 

.309 

.029 

1.000 

.949 




3.04 5627.6 


.982 









1500.0 

2732.0 

3283.6 

2224.4 .895 

.964 

.592 

.729 

.137 

.470 

.264 

.326 

.061 

.945 

1.000 




3.04 6770.1 


.964 









SET 5 














SNLIST 

F = 1.0 

, 





SEND 







500.0 

932.0 

977.4 

765.0 .995 

.999 

.870 

.856 

-.014 

.136 

.112 

.110 

-.002 

.433 

.339 




4.44 3395.4 


.999 









1100.0 

2012.0 

1756.8 

1172.0 .945 

.987 

.708 

.805 

.097 

.385 

.259 

.295 

.0 36 

1.000 

.903 




4.44 5201.5 


.987 









1500.0 

2732.0 

2713.1 

1532.3 .848 

.964 

.505 

.730 

.225 

.470 

.225 

.326 

.101 

.870 

1.000 




4.44 6800.7 


.964 









SET 6 














SNLIST 

F:0.4 

, NUTORF=T, 




SEND 







ITRCl, ITRC2, ITRC3 = 

500, 1500, 


25 









500.0 

932.0 

2251.7 

2192.6 .998 

.998 

.887 

.853 

-.034 

.224 

.189 

.182 

-.007 

.500 

.489 




1.23 2701.5 


.998 









1325.0 

2417.0 

4241.8 

4036.9 .963 

.969 

.758 

.744 

-.014 

.525 

.378 

.371 

-.007 

1.000 

.998 




1.23 4973.9 


.969 









1400.0 

2552.0 

4491.0 

4262.0 .956 

.963 

.737 

.726 

-.011 

.539 

.377 

.372 

-.005 

.998 

1.00 0 




1.23 5251.3 


.963 









1500.0 

2732.0 

4851.8 

4585.7 .945 

.953 

.706 

.700 

-.006 

.558 

.374 

.371 

-.003 

.990 

.998 
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1.23 5650.0 


953 


SET 7 






$NUST 

F = 0.5 

• 




500.0 

932.0 

2142.0 

2012.1 .998 

.999 

.887 




1.55 3122.3 


.999 

1325.0 

2417.0 

4069.9 

3625.2 .961 

.974 

.752 




1.55 5625.3 


.974 

1500.0 

2732.0 

4667.5 

4091.9 .941 

.961 

.697 




l.SS 6349.4 


.961 

SET 8 






SNLIST 

F=0.6 

t 




500.0 

932.0 

1845.9 

1669.2 .998 

.999 

.884 




1.97 3260.5 


.999 

1275.0 

2327.0 

3460.2 

2887.1 .959 

.978 

.746 




1.97 5674.1 


.978 

1500.0 

2732.0 

4168.2 

3363.9 .930 

.963 

.669 




1.97 6611.2 


.963 

SET 9 






SNLIST 

F=0.8 

t 




500.0 

932.0 

1322.2 

1109.5 .996 

.999 

.878 




3.04 3376.7 


.999 

1175.0 

2147.0 

2414.2 

1788.2 .953 

.984 

.729 




3.04 5442.5 


.984 

1500.0 

2732.0 

3283.6 

2224.4 .895 

.964 

.592 




3.04 6770.1 


.964 

SET 10 






SNLIST 

F = 1.0 

1 




500.0 

932.0 

977.4 

765.0 .995 

.999 

.870 




4.44 3395.4 


.999 

1050.0 

1922.0 

1671.2 

1133.3 .953 

.989 

.728 




4.44 5029.8 


.989 

1500.0 

2732.0 

2713.1 

1532.3 .848 

.964 

.505 




4.44 6800.7 


.964 


SEND 


855 

-.032 

.224 

.189 

.182 

-.007 

.504 

.477 

759 

.008 

.525 

.375 

.379 

.0 04 

1.000 

.992 

720 

.023 

.558 

.370 

.382 

.012 

.987 

1.000 

855 

SEND 

-.029 

.224 

.188 

.182 

-.006 

.517 

.473 

774 

.028 

.514 

.364 

.378 

.014 

1.000 

.982 

726 

.057 

.558 

.355 

.385 

.030 

.974 

1.00 0 

856 

SEND 

-.022 

.224 

.187 

.182 

-.005 

.549 

.471 

793 

.064 

.491 

.340 

.370 

.0 30 

1.000 

.957 

729 

.137 

.558 

.314 

.387 

.073 

.923 

1.000 

856 

SEND 

-.014 

.224 

.185 

.182 

-.003 

.579 

.470 

811 

.083 

.462 

.320 

.356 

.037 

1.000 

.920 

730 

.225 

.558 

.268 

.387 

.120 

.838 

1.000 


SET 


11 



C-38 


SPUN ABCtl23*5fDE:F 


SBLK,F t506/13»LSPH 

BLOCK 5.13 SL74R1 12/16/83 14:58:27 

NEW DEFAULT ROUTING: 506/13tLSPH 

olASGiA SOLAR 

SXQT SOLAR. CONC/11 



C-39 


SCT 1 

ENTER INPUT VALUES (NAKELIST. WITH NAME "NLIST*> 

SNLIST F=0.4« SECCNC=Tt RHO2=0.96t MAXSECsTt 

IENGEF=T« GENE=0.98t GEARE=0.9f XTRACT=T> SEND 

ENTER RECEIVER TEMPERATURES (H1»H2«H3 INTEGER) 

ITRCl, ITRC2, ITRC3 = 500t I500t 25 

ENTER ENGINE EFFICIENCIES <FREE-FIELOt REAL) 


EFFICIENC 

lES 

ENTERED 

SNLIST 

INS 

- 


.80000000E'»03 

RHOl 

= 


.90000000E‘»00 

RH02 

r 


.96000000E«00 

BSl 

= 


•lOOOOOOOE^Ol 

BS2 

= 


•lOOOOOOOE^Ol 

PHIl 

= 


.OOOOOOOOE^OO 

PHIIS 

= 


• OOOOOOOOE-fOO 

PHI2 

= 


.100Q0000E'»01 

CX 

= 


.ooooooooE«oo 

CIS 



.ooooooooE«oo 

C2 

= 


.OOOOOOOOE+00 

F 

= 


.AOOOOOOOE-fOO 

RHA 

= 


.GAOlOeiGE+02 

SLOPER 

s 


.200Q0000E'»01 

SPECUL 

= 


.soooooooE«oo 

SOLSO 

s 


.23000000E-»01 

ALPHA 

s 


.10000000E«01 

EPS 

= 


.lOOQOOOOE^OX 

TAC 

s 


•20000000E«02 

HC 

s 


.OOOOOOOOE'fOO 

ARATIO 

= 


.OOOOOOOOE'^00 

HK 

s 


•OOOOOOOOE^OO 

DTRE 

s 


.2SOOOOOOE+02 

TOC 

s 


.SOO0OOOOE'»O2 

PCEFCT 

s 


.ooooooooE«oo 

ENEFCT 

r 


•OOOOOOOOE^OO 

CYCECT 

s 


.ooooooooE«oo 

HECHE 

= 


•OOOOOOOOE^OO 

AUXE 

= 


.ooooooooE'»oo 

GEARE 

= 


.90000000E«00 

GENE 

r 


.98000000E«00 

PPE 

r 


.95000000E«00 

OPTH2E 

s 

T 


PARAB 

r 

T 


KAXC 

s 

F 


HAXPHI 

r 

F 


SECONC 

r 

T 


HAXSEC 

: 

T 


IPCSEF 

s 

F 


lENGEF 

= 

T 


ICYCEF 

= 

F 


NUTORF 

s 

T 


XTRACT 

= 

T 


SUP2 

r 

F 


MORDEC 


F 



SEND 


OPTHZEsT, 



ESItlxlIiI£&££EI-£A£I « ££kk££IfiE-L£.EI£l£li£I PCS SI£I£E-£E£I£1£N£1 mS^miSISiEFEIf. 


_£_ 

F 

M££-S££» 

MZ £££. W /0 SEC . 

M£S££. kZa-£££» 

MZ£££* 

£££1A 

£££!£» 

KZfi-£££> 

MZ£££> 

££LIA 

i<Za_£££> 

UZ_S££> 

500.0 

932.0 

SECONDARY OVERALL 

£££tli££li£* ££ flEx £ flti £» 

2251.7 2192.6 .998 

£^££ A ££ 

I££Ia£A£I. 

.998 .887 

.853 

-.034 

.136 

.114 

.110 

-.004 

.363 

.352 

525.0 

977.0 

2299.6 

1.23 2701.5 

2238.0 .998 

.998 

.998 .886 

.852 

-.034 

.154 

.130 

.125 

-.005 

.411 

.40 0 

550.0 

1022.0 

2347.9 

1.23 2757.5 

2283.7 .997 

.998 

.998 .884 

.851 

-.033 

.172 

.144 

.139 

-.005 

.458 

.445 

575.0 

1067.0 

2396.6 

1.23 2813.8 

2329.8 .997 

.998 

.998 .882 

.849 

-.033 

.189 

.158 

.152 

-.006 

.501 

.487 

600.0 

1112.0 

2445.8 

1.23 2870.5 

2376.3 .997 

.998 

.997 .880 

.848 

-.033 

.205 

.171 

.165 

-.0 06 

.542 

.527 

625.0 

1157.0 

2495.5 

1.23 2927.8 

2423.1 .996 

.997 

.997 .878 

.846 

-.032 

.220 

.183 

.177 

-.007 

.581 

.565 

650.0 

1202.0 

2545.7 

1.23 2985.6 

2470.5 .996 

.997 

.997 .876 

.844 

-.032 

.234 

.195 

.187 

-.007 

.616 

.600 

675.0 

1247.0 

2596.6 

1.23 3043.9 

2518.3 .996 

.997 

.996 .874 

.842 

-.032 

.247 

.205 

.198 

-.007 

.650 

.633 

700.0 

1292.0 

2648.0 

1.23 3102.8 

2566.7 .995 

.996 

.996 .872 

.840 

-.031 

.258 

.214 

.206 

-.008 

.678 

.66 0 

725.0 

1337.0 

2700.1 

1.23 3162.4 

2615.6 .994 

.996 

.995 .869 

.838 

-.031 

.271 

.224 

.216 

-.008 

.708 

.690 

750.0 

1382.0 

2752.9 

1.23 3222.7 

2665.1 .994 

.995 

.995 .866 

.836 

-.030 

.280 

.231 

.223 

-.008 

.731 

.713 

775.0 

1427.0 

2806.4 

1.23 3283.7 

2715.2 .993 

.995 

.994 .864 

.834 

-.030 

.290 

.238 

.230 

-.008 

.754 

.736 

800.0 

1472.0 

2860.6 

1.23 3345.4 

2766.0 .993 

.994 

.994 .861 

.831 

-.029 

.299 

.244 

.236 

-.008 

.774 

.756 

825.0 

1517.0 

2915.7 

1.23 3408.0 

2817.4 .992 

.994 

.993 .858 

.829 

-.029 

.308 

.251 

.242 

-.008 

.794 

.775 

850.0 

1562.0 

2971.5 

1.23 3471.3 

2869.5 .991 

.993 

.992 .854 

.826 

-.028 

.317 

.257 

.248 

-.009 

.814 

.795 

875.0 

1607.0 

3028.2 

1.23 3535.5 

2922.4 .990 

.992 

.992 .851 

.823 

-.028 

.324 

.262 

.253 

-.009 

.829 

.810 

900.0 

1652.0 

3085.8 

1.23 3600.7 

2976.0 .989 

.992 

.991 .847 

.820 

-.027 

.332 

.267 

.258 

-.009 

.845 

.827 

925.0 

1697.0 

3144.4 

1.23 3666.7 

3030.4 .988 

.991 

.990 .843 

.817 

-.027 

.340 

.272 

.263 

-.009 

.862 

.84 3 

950.0 

1742.0 

3203.9 

1.23 3733.7 

3085.6 .987 

.990 

.969 .839 

.813 

-.026 

.347 

.276 

.268 

-.009 

.876 

.857 

975.0 

1787.0 

3264.4 

1.23 3801.8 

3141.7 .986 

.989 

.989 .835 

.810 

-.025 

.354 

.281 

.272 

-.009 

.889 

.871 

1000.0 

1832.0 

3325.9 

1.23 3870.9 

3198.7 .985 

.989 

.988 .831 

.806 

-.025 

.361 

.285 

.276 

-.008 

.902 

.884 

1025.0 

1877.0 

3388.6 

1.23 3941.1 

3256.5 .984 

.988 

.987 .826 

.802 

-.024 

.367 

.288 

.280 

-.008 

.913 

.895 

1050.0 

1922.0 

3452.3 

1.23 4012.4 

3315.4 .983 

.987 

.985 .822 

.798 

-.023 

.374 

.292 

.284 

-.008 

.925 

.908 

1075.0 

1967.0 

3517.2 

1.23 4084.9 

3375.2 .982 

.965 

.984 .817 

.794 

-.023 

.379 

.294 

.286 

-.008 

.932 

.916 

1100.0 

2012.0 

3583.4 

1.23 4158.6 

3436.1 .980 

.984 

.983 .812 

.790 

-.022 

.385 

.297 

.289 

-.008 

.942 

.926 

1125.0 

2057.0 

3650.8 

1.23 4233.6 

3498.0 .979 

.983 

.982 .807 

.786 

-.021 

.391 

.299 

.292 

-.008 

.949 

.933 
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982 





1.23 

4309.9 


.982 

1150.0 

2102.0 

3719.5 

3561.1 

.977 

.981 

.801 




1.23 

4387.6 


.981 

1175.0 

2147.0 

3789.6 

3625.2 

.975 

.979 

.796 




1.23 

4466.7 


.979 

1200.0 

2192.0 

3861.1 

3690.6 

.974 

.978 

.790 




1.23 

4547.2 


.978 

1225.0 

2237.0 

3934.0 

3757.2 

.972 

.976 

.784 




1.23 

4629.3 


.976 

1250.0 

2282.0 

4008.5 

3825.1 

.970 

.974 

.778 




1.23 

4712.9 


.974 

1275.0 

2327.0 

4084.6 

3894.3 

.968 

.973 

.771 




1.23 

4798.2 


.973 

1300.0 

2372.0 

4162.3 

3964.9 

.966 

.971 

.765 




1.23 

4885.2 


.971 

1325.0 

2417.0 

4241.8 

4036.9 

.963 

.969 

.758 




1.23 

4973.9 


.969 

1350.0 

2462.0 

4323.0 

4110.4 

.961 

.967 

.751 




1.23 

5064.4 


.967 

1375.0 

2507.0 

4406.0 

4185.4 

.959 

.965 

.744 




1.23 

5156.9 


.965 

1900.0 

2552.0 

4491.0 

4262.0 

.956 

.963 

.737 




1.23 

5251.3 


.963 

1425.0 

2597.0 

4578.0 

4340.3 

.953 

.961 

.729 




1.23 

5347.7 


.961 

1450.0 

2642.0 

4667.1 

4420.3 

.951 

.958 

.722 




1.23 

5446.2 


.958 

1475.0 

2687.0 

4758.3 

4502.0 

.948 

.956 

.714 




1.23 

5547.0 


.956 

1500.0 

2732.0 

4851.8 

4585.7 

.945 

.953 

.706 




1.23 

5650.0 


.953 


.781 

-.020 

.397 

.302 

.295 

-.008 

.957 

.943 

.776 

-.019 

.403 

.305 

.297 

-.007 

.965 

.951 

.771 

-.019 

.408 

.306 

.299 

-.007 

.971 

.958 

.766 

-.018 

.415 

.309 

.302 

-.007 

.978 

.966 

.761 

-.017 

.420 

.310 

.304 

-.007 

.983 

.972 

.756 

-.016 

.426 

.312 

.306 

-.006 

.989 

.979 

.750 

-.015 

.431 

.313 

.307 

-.006 

.993 

.984 

.744 

-.014 

.437 

.314 

.309 

-.006 

.996 

.988 

.739 

-.013 

.441 

.315 

.309 

-.005 

.997 

.990 

.732 

-.012 

.445 

.315 

.310 

-.005 

.998 

.992 

.726 

-.011 

.451 

.316 

.311 

-.005 

.999 

.995 

.720 

-.010 

.455 

.315 

.311 

-.004 

.999 

.996 

.713 

-.008 

.460 

.316 

.312 

-.004 

1.000 

.998 

.707 

-.007 

.465 

.315 

.312 

-.003 

.999 

.999 

.700 

-.006 

.470 

.315 

.312 

-.003 

.999 

1.000 
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SET 2 

ENTER INPUT 

VALUES (NAMELISTt WITH NAME "NLIST") 

SNLIST 


F 

= 0.5, 

iNLIST 

INS 

- 


.80000000E-^03 

RHOl 

= 


.9G0O0000E*O0 

RH02 

r 


.9G00O000E-»O0 

BSl 

r 


.lOOOOOOOE-^Ol 

BS2 

= 


.lOOOOOOOE+01 

PHIl 

= 


.ooooooooE*oo 

PHIIS 

s 


.OOOOOOOOE-^00 

PHI2 

s 


.10000000E«01 

Cl 

r 


.OOOOOOOOE-fOO 

CIS 

= 


.OOOOOOOOE-^00 

C2 

= 


.OOOOOOOOE-^00 

F 

r 


.500000001*00 

RHA 

= 


.53130088E+02 

SLOPER 



.20000000E«01 

SPECUL 

= 


.50000000E«00 

SOLSD 



.23000000E401 

ALPHA 

- 


.lOOOOOOOE-^01 

EPS 



.10000000E«01 

TAC 

= 


.2GOOOOOOE'»02 

HC 

= 


.OOOOOOOOE^OO 

ARATIO 



.OOOOOOOOE-^OO 

HK 

= 


.0OOOOOOOE«OO 

OTRE 

= 


.25000000E+02 

TOC 

= 


.50000000E«02 

PCEFCT 

= 


.OOOOOOOOEfOO 

ENEFCT 

= 


.OOOOOOOOE+00 

CYCECT 

= 


.OOOOOOOOEt^OO 

HECHE 

r 


.OOOOOOOOE-^00 

AUXE 

= 


.OOOOOOOOE-fOO 

GEARE 

s 


.90000000E«00 

GENE 

= 


.98000000E'^00 

PPE 

= 


.95000000E+00 

OPTHZE 

z 

T 


PARAB 

= 

T 


MAXC 

= 

F 


HAXPHI 

r 

F 


SECONC 

z 

T 


MAXSEC 

z 

T 


IPCSEF 

z 

F 


lENGEF 

z 

T 


ICYCEF 

r 

F 


NUTORF 

z 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


HORDEC 

z 

F 



SEND 


I 


$ENO 
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£E£Lim_I£!5E. 

P£IM.G^ii.co(i£. EBltlxl!!iI£fi£LEI_E.4£I. £2LL££Ififi_£EEl£I£Ii£l 

PCS 


_£££J£1£N£I 

£fiA£xi!Mi£l§x£££l£ 

C 

_£_ 

«/£-£££• MZ£££* «Zfi_S££» 

SECONDARY OVERALL 

£££C1.££U£* £££Ex££til£> 

HZ£££. liZfi_S££ 

£Y££AkL 

l£EIx£A£I. 

• MZ£££ 

• C££IA 

£££!£. 

UZfi-£££* 

MZ£££. 

Q££IA 

l!ZO_S£C. 

MZ SE£. 

500.0 

932.0 

2142.0 

2012.1 .998 

1.55 3122.3 

.999 .887 

.999 

.855 

-.032 

.136 

.114 

.110 

-.004 

.366 

.343 

525.0 

977.0 

2188.0 

2052.7 .998 

1.55 3185.2 

.998 .885 

.998 

.854 

-.031 

.154 

.130 

.125 

-.005 

.416 

.390 

550.0 

1022.0 

2234.4 

2093.5 .997 

1.55 3248.5 

.998 .883 

.998 

.853 

-.031 

.172 

.144 

.139 

-.005 

.462 

.433 

575.0 

1067.0 

2281.3 

2134.5 .997 

1.55 3312.2 

.998 .881 

.998 

.851 

-.030 

.189 

.158 

.153 

-.005 

.506 

.475 

600.0 

1112.0 

2328.6 

2175.9 .997 

1.55 3376.4 

.998 .879 

.998 

.850 

-.029 

.205 

.171 

.165 

-.006 

.547 

.514 

625.0 

1157.0 

2376.4 

2217.6 .996 

1.55 3441.1 

.997 .877 

.997 

.849 

-.029 

.220 

.183 

.177 

-.006 

.586 

.551 

650.0 

1202.0 

2424.8 

2259.7 .996 

1.55 3506.4 

.997 .875 

.997 

.847 

-.028 

.234 

.194 

.188 

-.006 

.622 

.585 

675.0 

1297.0 

2473.8 

2302.1 .995 

1.55 3572.2 

.997 .873 

.997 

.845 

-.027 

.247 

.205 

.198 

-.006 

.656 

.617 

700.0 

1292.0 

2523.3 

2345.0 .995 

1.55 3638.8 

.996 .870 

.996 

.844 

-.027 

.258 

.214 

.207 

-.007 

.684 

.64 4 

725.0 

1337.0 

2573.6 

2388.3 .994 

1.55 3706.0 

.996 .868 

.996 

.842 

-.026 

.271 

.223 

.217 

-.007 

.715 

.674 

750.0 

1382.0 

2624.5 

2432.1 .994 

1.55 3773.9 

.996 .865 

.996 

.840 

-.025 

.280 

.230 

.224 

-.007 

.738 

.696 

775.0 

1427.0 

2676.1 

2476.4 .993 

1.55 3842.6 

.995 .862 

.995 

.838 

-.024 

.290 

.238 

.231 

-.007 

.761 

.719 

800.0 

1472.0 

2728.4 

2521.1 .992 

1.55 3912.1 

.995 .859 

.995 

.836 

-.023 

.299 

.244 

.237 

-.007 

.781 

.738 

825.0 

1517.0 

2781.6 

2566.4 .991 

1.55 3982.4 

.994 .855 

.994 

.833 

-.022 

.308 

.250 

.244 

-.006 

.801 

.758 

850.0 

1562.0 

2835.6 

2612.3 .991 

1.55 4053.6 

.994 .852 

.994 

.831 

-.021 

.317 

.256 

.250 

-.006 

.821 

.778 

875.0 

1607.0 

2890.4 

2658.8 .990 

1.55 4125.6 

.993 .848 

.993 

.828 

-.020 

.324 

.261 

.255 

-.006 

.835 

.793 

900.0 

1652.0 

2946.1 

2705.8 .989 

1.55 4198.7 

.992 .844 

.9 92 

.826 

-.019 

.332 

.266 

.260 

-.006 

.852 

.809 

925.0 

1697.0 

3002.7 

2753.5 .988 

1.55 4272.7 

.992 .841 

.992 

.823 

-.018 

.340 

.271 

.265 

-.006 

.868 

.826 

950.0 

1742.0 

3060.3 

2801.9 .987 

1.55 4347.7 

.991 .836 

.991 

.820 

-.016 

.347 

.275 

.270 

-.005 

.882 

.840 

975.0 

1787.0 

3118.9 

2850.9 .986 

1.55 4423.8 

.990 .832. 

.990 

.817 

-.015 

.354 

.280 

.274 

-.005 

.895 

.854 

1000.0 

1832.0 

3178.6 

2900.7 .984 

1.55 4501.0 

.990 .828 

.990 

.814 

-.014 

.361 

.284 

.279 

-.005 

.908 

.868 

1025.0 

1877.0 

3239.3 

2951.2 .983 

1.55 4579.4 

.989 .823 

.989 

.810 

-.012 

.367 

.287 

.282 

-.004 

.918 

.879 

1050.0 

1922.0 

3301.2 

3002.4 .982 

1.55 4658.9 

.988 .818 

.988 

.807 

-.011 

.374 

.291 

.287 

-.004 

.931 

.892 

1075.0 

1967.0 

3364.2 

3054.5 .980 

1.55 4739.7 

.987 .813 

.987 

.803 

-.010 

.379 

.293 

.289 

-.003 

.938 

.901 

1100.0 

2012.0 

3428.4 

3107.4 .979 

1.55 4821.7 

.986 .808 

.986 

.800 

-.008 

.385 

.296 

.293 

-.003 

.947 

.911 

1125.0 

2057.0 

3493.9 

3161.1 .977 

.985 .802 

.796 

-.006 

.391 

.298 

.295 

-.002 

.953 

.919 





1.55 

4905.1 


.985 

1150.0 

2102.0 

3560.8 

3215.7 

.976 

.984 

.797 




1.55 

4989.8 


.984 

1175.0 

2147.0 

3628.9 

3271.2 

.974 

.982 

.791 




1.55 

5075.9 


.982 

1200.0 

2192.0 

3698.5 

3327.6 

.972 

.981 

.785 




1.55 

5163.5 


.981 

1225.0 

2237.0 

3769.6 

3385.0 

.970 

.980 

.778 




1.55 

5252.6 


.980 

1250.0 

2282. 0 

3842.2 

3443.5 

.968 

.979 

.772 




1.55 

5343.3 


.979 

1275.0 

2327.0 

3916.4 

3503.0 

.966 

.977 

.765 




1.55 

5435.6 


.977 

1300.0 

2372.0 

3992.3 

3563.5 

.964 

.976 

.759 




1.55 

5529.6 


.976 

1325.0 

2417.0 

4069.9 

3625.2 

.961 

.974 

.752 




1.55 

5625.3 


.974 

1350.0 

2482.0 

4149.2 

3688.0 

.959 

.972 

.744 




1.55 

5722.8 


.972 

1375.0 

2507.0 

4230.5 

3752.1 

.956 

.971 

.737 




1.55 

5822.2 


.971 

1400.0 

2552.0 

4313.7 

3817.4 

.953 

.969 

.729 




1.55 

5923.5 


.969 

1425.0 

2597.0 

4398.9 

3884.0 

.951 

.967 

.722 




1.55 

6026.8 


.967 

1450.0 

2642.0 

4466.2 

3951.9 

.948 

.965 

.714 




1.55 

6132.2 


.965 

1475.0 

2687.0 

4575.7 

4021.2 

.944 

.963 

.705 




1.55 

6239.7 


.963 

1500.0 

2732.0 

4667.5 

4091.9 

.941 

.961 

.697 




1.55 

6349.4 


.961 


.792 

-.005 

.397 

.300 

.788 

-.003 

.403 

.303 

.783 

-.001 

.408 

.304 

.779 

.000 

.415 

.307 

.774 

.002 

.420 

.308 

.769 

.004 

.426 

.310 

.764 

.006 

.431 

.311 

.759 

.008 

.437 

.312 

.754 

.010 

.441 

.312 

.749 

.012 

.445 

.312 

,743 

.014 

.451 

.312 

.738 

.016 

.455 

.312 

732 

.018 

.460 

.312 

,726 

.020 

.465 

.311 

.720 

.023 

.470 

.311 


299 

-.002 

.962 

.929 

302 

-.001 

.970 

.938 

304 

-.001 

.975 

.945 

307 

.000 

.982 

.954 

309 

.001 

.986 

.961 

311 

.002 

.992 

.969 

313 

.002 

.995 

.975 

315 

.003 

.998 

.980 

316 

.004 

.999 

.983 

317 

.005 

.999 

.986 

318 

.006 

1.000 

.990 

319 

.007 

.999 

.992 

320 

.008 

.999 

.996 

320 

.009 

.997 

.997 

321 

.010 

.997 

1.000 




C-47 


SET 3 

ENTER INPUT VALUES (NAMELlSTi WITH NAME "NLIST") 
INLIST F=0.6» 


SNLIST 

INS 

- 


.80000000E'*^03 

RHOl 

s 


.90000000000 

RH02 

= 


.96000000E'»00 

BSl 

= 


.lOOOOOOOEfOl 

BS2 

= 


.100000QOE401 

PHIl 

z 


.OOOOOOOOO'OO 

PHIIS 

= 


.OOOOOOOOE^OO 

PHI2 

z 


.lOOOOOOOE-fOl 

Cl 

- 


.OOOOOOOOE^OO 

CIS 

z 


.OOOOOOOOE^OO 

C2 

z 


.OOOOOOOOE400 

F 

z 


.SOOOOOOOE^OO 

RHA 

= 


•45239635E+02 

SLOPER 

= 


.20000000E«01 

SPECUL 

= 


.50000000E+00 

SOLSD 

= 


.23000000E+01 

ALPHA 



.lOOOOOOOE-^01 

EPS 

= 


.lOOOOOOOEf 01 

TAC 

= 


.20000000E'»02 

HC 

= 


• OOOOOOOOE-^00 

ARATIO 



.ooooooooE«oo 

HK 

= 


.OOOOOOOOEfOO 

DTRE 

z 


.25000000E+02 

TOC 

r 


.SOOOOCOOE+02 

PCEFCT 

= 


.OOOOOOOOE-^00 

ENEFCT 

= 


.OOOOOOOOE'^00 

CYCECT 

= 


.OOOOOOOOE^OO 

HECHE 

= 


.OOOOOOOOE-^00 

AUXE 

- 


.OOOOOOOOEt^OO 

6EARE 

- 


.90000000E4^00 

6ENE 

= 


.98000000E«00 

PPE 

= 


.95000000E«00 

OPTH2E 

r 

T 


PARAB 

= 

T 


MAXC 

= 

F 


MAXPHI 

= 

F 


SECONC 

= 

T 


NAXSEC 

= 

T 


IPCSEF 

s 

F 


IEN6EF 

= 

T 


ICYCEF 

r 

F 


NUTORF 

r 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


HORDEC 

z 

F 



SEND 


SEND 




C-48 


efilClxII^l£a£Lei.EA£I • £fiLL££Ififi_£E.E.I£l£!l£I PCS sm£l).E££l£I£!«l£l £BA£*eflA*Sl£^E£I£« 


_£_ 

_£_ 

MZiL.£££> 

MZ £££. MZ £.£££* 

MZ£££* 

tiZ£-£££. 

kZS ££. 

££L1A 

£££!£. 


MZ£££> 

Q££1A 

HZ£-£££* 

MZ^££ 

500.0 

932.0 

SECONDAB 7 QMEBALL 

££ fi £ li ££ tl £« ££ fiUx £££ l £. 

1845.9 1669.2 .998 

SliESAkL 

I££Ia£££I* 

.999 .884 

.855 

-.029 

.136 

.114 

.110 

-.004 

.377 

.34 0 

525.0 

977.0 

1886.8 

1.97 3280.5 

1702.5 .997 

.998 

.999 

.882 

.854 

-.028 

.154 

.129 

.125 

-.004 

.427 

.386 

550.0 

1022.0 

1928.0 

1.97 3346.0 

1736.0 .997 

.998 

.998 
. 880 

.853 

-.027 

.172 

.144 

.139 

-.004 

.475 

.430 

575.0 

1067.0 

1969.7 

1.97 3411.9 

1769.8 .996 

.998 

.998 

.878 

.852 

-.026 

.189 

.158 

.153 

-.005 

.520 

.471 

600.0 

1112.0 

2011.9 

1.97 3478.2 

1803.7 .996 

.998 

.998 

.876 

.851 

-.025 

.205 

.170 

.165 

-.005 

.562 

.510 

625.0 

1157.0 

2054.6 

1.97 3544.9 

1838.0 .995 

.998 

.998 

.874 

.849 

-.024 

.220 

.182 

.177 

-.005 

.602 

.54 7 

650.0 

1202.0 

2097.8 

1.97 3612.2 

1872.5 .995 

.997 

.998 

.871 

.848 

-.023 

.234 

.193 

.188 

-.005 

.639 

.581 

675.0 

1247.0 

2141.7 

1.97 3680.1 

1907.3 .994 

.997 

.997 

.868 

.846 

-.022 

.247 

.204 

.199 

-.005 

.673 

.612 

700.0 

1292.0 

2186.1 

1.97 3748.5 

1942.5 .994 

.997 

.997 

.865 

.845 

-.021 

.258 

.212 

.207 

-.005 

.702 

.64 0 

725.0 

1337.0 

2231.1 

1.97 3817.6 

1978.0 .993 

.996 

.997 

.862 

.843 

-.020 

.271 

.222 

.217 

-.005 

.733 

.669 

750.0 

1382.0 

2276.9 

1.97 3887.4 

2013.9 .992 

.996 

.996 

.859 

.841 

-.018 

.280 

.229 

.224 

-.005 

.756 

.691 

775.0 

1427.0 

2323.3 

1.97 3957.9 

2050.1 .991 

.995 

.996 

.856 

.839 

-.017 

.290 

.236 

.231 

-.005 

.779 

.713 

800.0 

1472.0 

2370.5 

1.97 4029.1 

2086.8 .991 

.995 

.995 

.852 

.837 

-.015 

.299 

.242 

.238 

-.004 

.799 

.733 

825.0 

1517.0 

2418.5 

1.97 4101.2 

2123.9 .990 

.995 

.995 

.848 

.835 

-.014 

.308 

.248 

.244 

-.004 

.819 

.753 

850.0 

1562.0 

2467.3 

1.97 4174.1 

2161.4 .989 

.994 

.995 

.844 

.832 

-.012 

.317 

.254 

.250 

-.004 

.839 

.772 

875.0 

1607.0 

2516.9 

1.97 4247.8 

2199.4 .988 

.993 

.994 

.840 

.830 

-.010 

.324 

.258 

.255 

-.0 03 

.853 

.787 

900.0 

1652.0 

2567.5 

1.97 4322.5 

2237.9 .987 

.993 

.993 

.836 

.827 

-.008 

.332 

.263 

.261 

-.003 

.870 

.804 

925.0 

1697.0 

2618.9 

1.97 4398.1 

2276.8 .985 

.992 

.993 

.831 

.825 

-.006 

.340 

.268 

.266 

-.002 

.886 

.821 

950.0 

1742.0 

2671.3 

1.97 4474.7 

2316.3 .984 

.992 

.992 

.827 

.822 

-.005 

.347 

.272 

.271 

-.001 

.899 

.835 

975.0 

1787.0 

2724.7 

1.97 4552.4 

2356.4 .983 

.991 

.992 

.822 

.819 

-.002 

.354 

.276 

.275 

-.001 

.912 

.84 9 

1000.0 

1832.0 

2779.1 

1.97 4631.1 

2397.0 .981 

.990 

.991 

.816 

.816 

-.000 

.361 

.280 

.280 

-.000 

.924 

.863 

1025.0 

1877.0 

2834.6 

1.97 4710.9 

2438.2 .980 

.989 

.990 

.811 

.813 

.002 

.367 

.283 

.283 

.001 

.934 

.874 

1050.0 

1922.0 

2891.3 

1.97 4791.8 

2480.0 .978 

.988 

.989 

.805 

.810 

.004 

.374 

.286 

.288 

.001 

.945 

.887 

1075.0 

1967.0 

2949.1 

1.97 4873.9 

2522.4 .977 

.988 

.988 

.800 

.806 

.006 

.379 

.288 

.290 

.002 

.951 

.896 

1100.0 

2012.0 

3008.1 

1.97 4957.3 

2565.5 .975 

.987 

.988 

.794 

.803 

.009 

.385 

.291 

.294 

.003 

.960 

.906 

1125.0 

2057.0 

3068.5 

1.97 5042.0 

2609.2 .973 

.986 

.987 

.787 

.799 

.011 

.391 

.292 

.297 

.004 

.965 

.915 
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986 


1.97 5127.9 


1150.0 

2102.0 

3130.1 

2653.6 .971 

1.97 5215.2 

.985 

.781 

.985 

.795 

.014 

.397 

.294 

.300 

.005 

.973 

.925 

1175.0 

2147.0 

3193.1 

2698.8 .969 

1.97 5304.0 

.983 

.774 

.983 

.791 

.017 

.403 

.297 

.303 

.006 

.979 

.934 

1200.0 

2192.0 

3257.6 

2744.7 .967 

1.97 5394.2 

.982 

.768 

.982 

.787 

.019 

.408 

.298 

.305 

.0 07 

.983 

.942 

1225.0 

2237.0 

3323.5 

2791.4 .964 

1.97 5485.9 

.981 

.761 

.981 

.783 

.022 

.415 

.299 

.308 

.009 

.989 

.951 

1250.0 

2282.0 

3391.0 

2838.8 .962 

1.97 5579.2 

.980 

.753 

.980 

.778 

.025 

.420 

.300 

.310 

.010 

.992 

.957 

1275.0 

2327.0 

3460.2 

2887.1 .959 

1.97 5674.1 

.978 

.746 

.978 

.774 

.028 

.426 

.302 

.313 

.011 

.997 

.966 

1300.0 

2372.0 

3531.0 

2936.3 .956 

1.97 5770.7 

.977 

.738 

.977 

.769 

.031 

.431 

.302 

.315 

.013 

.999 

.972 

1325.0 

2417.0 

3603.6 

2986.3 .954 

1.97 5869.0 

.975 

.730 

.975 

.764 

.034 

.437 

.303 

.317 

.014 

1.000 

.978 

1350.0 

2462.0 

3678.0 

3037.2 .951 

1.97 5969.1 

.974 

.722 

.974 

.759 

.037 

.441 

.302 

.318 

.016 

.999 

.981 

1375.0 

2507.0 

3754.4 

3089.1 .948 

1.97 6071.1 

.972 

.714 

.972 

.754 

.040 

.445 

.302 

.319 

.017 

.997 

.984 

1400.0 

2552.0 

3832.8 

3142.0 .944 

1.97 6175.0 

.970 

.705 

.970 

.749 

.044 

.451 

.302 

.321 

.019 

.997 

.989 

1425.0 

2597.0 

3913.2 

3195.8 .941 

1.97 6280.9 

.969 

.696 

.969 

.743 

.047 

.455 

.301 

.321 

.020 

.994 

.991 

1450.0 

2642.0 

3995.9 

3250.8 .937 

1.97 6388.8 

.967 

.687 

.967 

.738 

.050 

.460 

.301 

.323 

.0 22 

.993 

.995 

1475.0 

2687.0 

4080.9 

3306.8 .934 

1.97 6498.9 

.965 

.678 

.965 

.732 

.054 

.465 

.299 

.323 

.024 

.989 

.997 

1500.0 

2732.0 

4168.2 

3363.9 .930 

1.97 6611.2 

.963 

.669 

.963 

.726 

.057 

.470 

.299 

.324 

.026 

.986 

1.000 




C-51 


SET 

A 



ENTER INPUT 

VALUES (NAMELISTt WITH NAME "NLIST") 

tNLIST 


F 

=0.8» SEND 

$NLIST 




INS 

r 


.80000000E«03 

RHOl 

= 


.90QOOOOOE+00 

RH02 

= 


.S&OOOOOOE^OO 

BSl 

= 


.1000COOOE«01 

BS2 

: 


.lOOOOOOOE-^01 

PHIl 

: 


.ooooooooE«oo 

PHIIS 

: 


.OOOOOOOOE400 

PHI2 

= 


.IOOOOOOOE'^01 

Cl 

r 


.00000000E-)-00 

CIS 

= 


.OOOOOOOOE-^OO 

C2 

= 


.OOQOOOOOE^OO 

F 

= 


.80000000E+00 

RBA 

= 


.3A707878E»02 

SLOPER 

: 


.20000000E«01 

SPECUL 

: 


.SOOOOOOOE^OO 

SOLSD 

: 


.23000000E'»01 

ALPHA 

= 


.lOOOOOOOE^Ol 

EPS 

= 


.lOOOOOOOE-^01 

TAC 

= 


.20000000E«02 

HC 

r 


.OOOOOOOOE-^00 

ARATIO 

= 


.OOOOOOOOE^OO 

HK 

= 


.ooooooooE«oo 

DTRE 

= 


.25000000E*^02 

TOC 

= 


.SOOOOOOOE-»02 

PCEFCT 

s 


.OOOOOOOOE^OO 

ENEFCT 

= 


.OOOOOOOOE^OO 

CYCECT 

z 


.OOOOOOOOE^OO 

MECHE 

z 


.ooooooooE«oo 

AUXE 

z 


.OOOOOOOOEt-OO 

6EARE 

z 


.90000000E-»00 

GENE 

z 


.oaooooooE^oo 

PPE 

z 


.95000000E«00 

OPTKZE 

z 

T 


PARAB 

z 

T 


HAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

T 


HAXSEC 

z 

T 


IPCSEF 

z 

F 


lENGEF 

z 

T 


ICYCEF 

z 

F 


NUTORF 

z 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


HOROEC 

z 

F 



SEND 
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Et££IltER_IEH£. 

P£IMiG£0il^C£]ii£. £BI£lj.iM£.fi£L£l_EA£I • CfiLL££Ififi_££EICI£!!l£I 

PCS 


_££EI£l£N£]f 

£R££iHAJtiS15^£FFl£ 


-E_ 

JiZfl_£t£.. UZSt£. iiZ.a_S££. 

SECONDARY OVERALL 

££OtlL£j2!i£. ££fi£lx££ll£« 

U/SEC. W/0 SEC 

Qli££ALL 

1£EI*EA£I. 



EEE1£* 


MZ£££* 

Q££I£ 

^ZS_£££. 

MZ_£££. 

500.0 

932.0 

1322.2 

1109.5 .996 

3.04 3376.7 

.999 .878 

.999 

.856 

-.022 

.136 

.113 

.110 

-.003 

.405 

.339 

525.0 

977.0 

1353.6 

1131.5 .996 

3.04 3443.8 

.999 .875 

.999 

.855 

-.021 

.154 

.128 

.125 

-.003 

.459 

.385 

550.0 

1022.0 

1385.5 

1153.7 .995 

3.04 3511.3 

.998 .873 

.998 

.853 

-.019 

.172 

.143 

.139 

-.003 

.509 

.428 

575.0 

1067.0 

1417.7 

1176.0 .995 

3.04 3579.1 

.998 .670 

.998 

.852 

-.017 

.189 

.156 

.153 

-.003 

.557 

.469 

600.0 

1112.0 

1450.5 

1198.4 .994 

3.04 3647.5 

.998 .866 

.998 

.851 

-.015 

.205 

.168 

.165 

-.003 

.602 

.508 

625.0 

1157.0 

1483.8 

1221.0 .993 

3.04 3716.3 

.998 .863 

.998 

.850 

-.013 

.220 

.180 

.177 

-.003 

.643 

.544 

650.0 

1202.0 

1517.6 

1243.8 .992 

3.04 3785.7 

.997 .860 

.997 

.848 

-.011 

.234 

.191 

.188 

-.002 

.682 

.578 

675.0 

1247.0 

1551.9 

1266.8 .991 

3.04 3855.7 

.997 .856 

.997 

.847 

-.009 

.247 

.201 

.199 

-.002 

.717 

.610 

700.0 

1292.0 

1586.9 

1290.0 .991 

3.04 3926.4 

.997 .852 

.997 

.845 

-.007 

.258 

.209 

.207 

-.002 

.747 

.637 

725.0 

1337.0 

1622.5 

1313.5 .990 

3.04 3997.7 

.996 .848 

.996 

.843 

-.004 

.271 

.218 

.217 

-.001 

.779 

.666 

750.0 

1382.0 

1658.8 

1337.2 .988 

3.04 4069.7 

.996 .843 

.996 

.842 

-.001 

.280 

.225 

.224 

-.000 

.803 

.688 

775.0 

1427.0 

1695.8 

1361.1 .987 

3.04 4142.6 

.996 .838 

.996 

.840 

.001 

.290 

.231 

.231 

.000 

.826 

.711 

800.0 

1472.0 

1733.5 

1385.3 .986 

3.04 4216.2 

.995 .833 

.995 

.838 

.004 

.299 

.237 

.238 

.001 

.846 

.730 

825.0 

1517.0 

1772.0 

1409.7 .985 

3.04 4290.6 

.995 .828 

.995 

.836 

.007 

.308 

.242 

.244 

.002 

.865 

.750 

850.0 

1562.0 

1811.2 

1434.5 .983 

3.04 4365.9 

.994 .823 

.994 

.833 

.010 

.317 

.248 

.251 

.003 

.884 

.769 

875.0 

1607.0 

1851.4 

1459.5 .982 

3.04 4442.2 

.994 .817 

.994 

.831 

.014 

.324 

.251 

.256 

.004 

.898 

.784 

900.0 

1652.0 

1892.4 

1484.9 .980 

3.04 4519.3 

.993 .811 

,993 

.828 

.017 

.332 

.256 

.261 

.005 

.913 

.801 

925.0 

1697.0 

1934.3 

1510.6 .978 

3.04 4597.5 

.993 .805 

,993 

.826 

.021 

.340 

.260 

.266 

.007 

.928 

.818 

950.0 

1742.0 

1977.1 

1536.6 .976 

3.04 4676.7 

.992 .799 

,992 

.823 

.025 

.347 

.263 

.271 

.008 

.940 

.832 

975.0 

1787.0 

2021.0 

1562.9 .974 

3.04 4757.0 

.991 .792 

.991 

.820 

.028 

.354 

. 2 66 

.276 

.010 

.951 

.846 

1000.0 

1832.0 

2065.9 

1589.7 .972 

3.04 4838.3 

,990 .785' 

.990 

.817 

.032 

.361 

.269 

.280 

.011 

.961 

.860 

1025.0 

1877.0 

2112.0 

1616.8 .970 

3.04 4920.8 

.990 .778 

.990 

.814 

.036 

.367 

.271 

.284 

.013 

.969 

.871 

1050.0 

1922.0 

2159.1 

1644.3 .967 

3.04 5004.6 

.989 .770 

.989 

.811 

.041 

.374 

.274 

.288 

.014 

.978 

.884 

1075.0 

1967. 0 

2207.5 

1672.2 .965 

3.04 5089.5 

.988 .763 

.988 

.808 

.045 

.379 

.275 

.291 

.016 

.982 

.893 

1100.0 

2012.0 

2257.2 

1700.5 .962 

3.04 5175.7 

.987 .755 

,987 

.804 

.050 

.385 

.276 

.294 

.0 18 

.987 

.904 

1125.0 

2057.0 

2308.1 

1729.3 .959 

.986 .746 

.801 

.054 

.391 

.277 

.297 

.020 

.990 

.912 
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966 


3 . 0 ^ 5263.3 


1150.0 

2102.0 

2360.5 

1756.5 .956 

3.04 5352.2 

.985 

.738 

.985 

.797 

.059 

.397 

.278 

.300 

.0 22 

.994 

.922 

1175.0 

2147.0 

2414.2 

1788.2 .953 

3.04 5442.5 

.984 

.729 

.984 

.793 

.064 

.403 

.279 

.304 

.0 25 

.997 

.932 

1200.0 

2192.0 

2469.5 

1818.3 .950 

3.04 5534.3 

.983 

.720 

.983 

.789 

.069 

.408 

.279 

.306 

.027 

.998 

.940 

1225.0 

2237.0 

2526.4 

1849.0 .946 

3.04 5627.6 

.982 

.711 

.982 

.785 

.074 

.415 

.280 

.309 

.029 

1.000 

.949 

1250.0 

2282.0 

2585.0 

1880.2 .943 

3.04 5722.4 

.980 

.701 

.980 

.780 

.079 

.420 

.280 

.311 

.032 

.999 

.956 

1275.0 

2327.0 

2645.3 

1911.9 .939 

3.04 5818.9 

.979 

.691 

.979 

.776 

.085 

.426 

.280 

.314 

.034 

1.000 

.964 

1300.0 

2372.0 

2707.4 

1944.1 .935 

3.04 5917.1 

.978 

.681 

.978 

.771 

.090 

.431 

.279 

.316 

.0 37 

.997 

.970 

1325.0 

2417.0 

2771.5 

1976.9 .931 

3.04 6017.0 

.976 

.671 

.976 

.767 

.0 96 

.437 

.278 

.318 

.040 

.994 

.976 

1350.0 

2462.0 

2837.6 

2010.3 .926 

3.04 6118.7 

.975 

.660 

.975 

.762 

.102 

.441 

.277 

.319 

.043 

.988 

.98 0 

1375.0 

2507.0 

2905.9 

2044.4 .921 

3.04 6222.2 

.973 

.650 

.973 

.757 

.107 

.445 

.275 

.320 

.0 45 

.982 

.983 

1400.0 

2552.0 

2976.4 

2079.0 .917 

3.04 6327.7 

.971 

.638 

.971 

.752 

.113 

.451 

.273 

.322 

.048 

.977 

.988 

1425.0 

2597.0 

3049.3 

2114.3 .912 

3.04 6435.1 

.970 

.627 

.970 

.746 

.119 

.455 

.271 

.323 

.051 

.969 

.990 

1450.0 

2642.0 

3124.7 

2150.3 .906 

3.04 6544.6 

.968 

.616 

.968 

.741 

.125 

.460 

.269 

.324 

.055 

.962 

.995 

1475.0 

2687.0 

3202.7 

2187.0 .901 

3.04 6656.2 

.966 

.604 

.966 

.735 

.131 

.465 

.267 

.325 

.0 58 

.953 

.997 

1500.0 

2732.0 

3283.6 

2224.4 .895 

3.04 6770.1 

.964 

.592 

.964 

.729 

.137 

.470 

.264 

.326 

.061 

.945 

1.000 
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SET 5 

ENTER INPUT VALUES (NAMELIST, WITH NAME "NLIST") 


SNLIST 


F 

= 1.0, 

SNLIST 

INS 

- 


.80000000E+03 

RHOl 

r 


.90000000E+00 

RH02 

= 


.96000000E+00 

BSl 

= 


•lOOOOOOOE+Ol 

BS2 

r 


.lOOOOOOOE+01 

PHIl 

= 


.OOOOOOOOE+00 

PHIIS 

= 


.OOOOOOOOE+00 

PHI2 

= 


•lOOOOOOOE+01 

Cl 



.OOOOOOOOE+00 

CIS 

= 


.OOOOOOOOE+00 

C2 

= 


.OOOOOOOOE+00 

F 

= 


.lOOOOOOOE+01 

RMA 

= 


.28072355E+02 

SLOPER 

- 


.20000000E+01 

SPECUL 

= 


•50000000E+00 

SOLSD 

= 


.230C0000E+01 

ALPHA 



•lOOOOOOOE+01 

EPS 

= 


.lOOOOOOOE+01 

TAC 

= 


.20000000E+02 

HC 

r 


.ooooooooE«oo 

ARATIO 

r 


.OOOOOOOOE+00 

HK 

= 


.OOOOOOOOE-^00 

DTRE 

= 


.25000000E+02 

TOC 

r 


•50000000E+02 

PCEFCT 

= 


. 0 0 0 0 0 0 0 0 E 0 0 

ENEFCT 

= 


.OOOOOOOOE+00 

CYCECT 

= 


.OOOOOOOOE+00 

MECHE 



.OOOOOOOOE+00 

AUXE 

= 


.OGOOOOOOEfOO 

GEARE 

= 


•90000000E+00 

GENE 



•98000000E+00 

PPE 



.95000000E-»00 

OPTM2E 

= 

T 


PARAB 

= 

T 


HAXC 

= 

F 


MAXPHI 

r 

F 


SECONC 

r 

T 


MAXSEC 

= 

T 


IPCSEF 

= 

F 


lENGEF 

= 

T 


ICYCEF 

r 

F 


NUTORF 

= 

F 


XTRACT 

= 

T 


SUP2 


F 


MORDEC 

= 

F 



SEND 


SEND 
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a£££Ilt£a_I£M£. 

£ai£±£££tix££ll£. £ai£xilil£a£££I-£A£I • ££LL££Ifia_£££I£l££l£I 

PCS 

Sm£!l.£££I£l£N£l 

EBi£^Baa*Slg^EEI£ 

c 

F 

a/0_S£C. MZS££-. MZ£_S££. 

S£CQ£iQ£ai m.SL&LL 

££££^ti£* ££flM±£atl£» 

MZ£££< i<Zfi-£££* 

M£E£U 

1£EIaEA£I. 

MZ£££* 

a£tia 

£££!£. 



Q££ia 

JiZi!_gE£. 

MZ-S££* 

500.0 

932.0 

977.4 

765.0 .995 

4.44 3395.4 

.999 .870 

.999 

.856 

-.014 

.136 

.112 

.110 

-.002 

.433 

,339 

525.0 

977.0 

1002.3 

780.2 .994 

4.44 3462.7 

.999 .866 

.999 

.855 

-.012 

.154 

.127 

.125 

-.002 

.490 

.384 

550.0 

1022.0 

1027.7 

795.5 .993 

4.44 3530.5 

.998 .863 

.998 

.854 

-.009 

.172 

.141 

.139 

-.001 

.544 

.428 

575.0 

1067.0 

1053.4 

810.8 .992 

4.44 3598.6 

.998 .859 

.998 

.852 

-.006 

.189 

.154 

.153 

-.001 

.594 

.469 

600.0 

1112.0 

1079.7 

826.3 .991 

4.44 3667.3 

.998 .854 

.998 

.851 

-.003 

.205 

.166 

.165 

-.001 

.641 

.50 7 

625.0 

1157.0 

1106.4 

841.9 .990 

4.44 3736.4 

.998 .850 

.998 

.850 

-.000 

.220 

.177 

.177 

-.000 

.684 

.544 

650.0 

1202.0 

1133.7 

857.6 .989 

4.44 3806.1 

.997 .845 

.997 

.848 

.003 

.234 

.188 

.188 

.001 

.724 

.578 

675.0 

1247.0 

1161.6 

873.4 .988 

4.44 3876.4 

.997 .840 

.997 

.847 

.007 

.247 

.197 

.199 

.002 

.761 

.609 

700.0 

1292.0 

1190.0 

889.4 .986 

4.44 3947.4 

.997 .835 

.997 

.645 

.011 

.258 

.205 

.208 

.003 

.791 

.636 

725.0 

1337.0 

1219.1 

905.6 .985 

4.44 4019.0 

.996 .629 

.996 

.844 

.015 

.271 

.213 

.217 

.004 

.823 

.665 

750.0 

1382.0 

1248.8 

921.9 .983 

4.44 4091.4 

.996 .823 

.996 

.642 

,019 

.280 

.219 

.224 

.005 

.846 

.688 

775.0 

1427.0 

1279.2 

938.3 .981 

4.44 4164.5 

.996 .817 

.996 

.840 

.023 

.290 

.225 

.232 

.006 

.869 

|.710 

800.0 

1472.0 

1310.4 

955.0 .980 

4.44 4238.4 

.995 .810 

. .995 

.838 

.027 

.299 

.230 

.238 

.008 

.888 

.730 

825.0 

1517.0 

1342.3 

971.8 .978 

4.44 4313.1 

.995 .803 

.995 

.636 

.032 

.308 

.235 

.244 

.009 

.^07 

.749 

850.0 

1562.0 

1375.0 

988.9 .976 

4,44 4388.7 

.994 .796 

.994 

.833 

.037 

.317 

.240 

.251 

.011 

.925 

.769 

875.0 

1607.0 

1408.6 

1006.1 .973 

4.44 4465.3 

.994 .789 

.994 

.831 

.042 

.324 

.243 

.256 

.013 

.936 

.784 

900.0 

1652.0 

1443.1 

1023.6 .971 

4,44 4542.7 

.993 .781 

.993 

.829 

.048 

.332 

.246 

.261 

.015 

.950 

.801 

925.0 

1697.0 

1478.5 

1041.2 .968 

4.44 4621.2 

.993 .773 

.993 

.826 

.053 

.340 

.249 

.266 

.017 

.963 

.817 

950.0 

1742.0 

1514.8 

1059.2 .966 

4.44 4700.7 

.992 .765 

.992 

.623 

.059 

.347 

.252 

.271 

.019 

.972 

.831 

975.0 

1787.0 

1552.3 

1077.3 .963 

4.44 4781.3 

.991 .756 

.991 

.821 

.065 

.354 

.254 

.276 

.022 

.980 

.846 

1000.0 

1832.0 

1590.7 

1095.7 .960 

4.44 4862.9 

.991 .747 

.991 

.818 

.071 

.361 

.256 

.280 

.024 

.988 

,859 

1025.0 

1877.0 

1630.4 

1114.4 .956 

4,44 4945.8 

.990 .738 

.990 

.615 

.077 

.367 

.257 

.284 

.027 

.992 

.871 

1050.0 

1922.0 

1671.2 

1133.3 .953 

4.44 5029.8 

.989 .728 

.989 

.811 

.083 

.374 

.259 

.288 

.030 

.998 

.884 

1075.0 

1967.0 

1713.3 

1152.5 .949 

4.44 5115.0 

.986 .718 

.988 

.808 

.090 

.379 

.259 

.291 

.032 

.998 

.893 

1100.0 

2012.0 

1756.8 

1172.0 .945 

4.44 5201.5 

.967 .708 

.987 

.805 

.097 

.385 

.259 

.295 

.0 36 

i.ood 

.90 3 

1125.0 

2057.0 

1801.6 

1191.8 .941 

.986 .697 

.601 

.104 

.391 

.259 

.297 

.039 

.999 

.912 






4.44 

5289.4 


.986 

1150.0 

2102.0 

1 B 48.0 

1211.9 

.937 

.985 

.686 




4.44 

5378.6 


.985 

1175.0 

2147.0 

1695.9 

1232.3 

.932 

.984 

.675 




4.44 

5469.2 


.984 

1200.0 

2192.0 

1945.4 

1253. 1 

.927 

.983 

.663 




4.44 

5561.3 


.983 

1225.0 

2237.0 

1996.7 

1274.2 

.922 

.982 

.652 




4.44 

5654.9 


.982 

1250.0 

2282.0 

2049.9 

1295.6 

.917 

.981 

.639 




4.44 

5750.1 


.981 

1275.0 

2327.0 

2105.0 

1317.4 

.911 

.979 

.627 




4.44 

5846.9 


.979 

1300.0 

2372.0 

2162.3 

1339.6 

.906 

.978 

.615 




4.44 

5945.3 


.978 

1325.0 

2417.0 

2221.7 

1362.2 

.899 

.976 

.602 




4.44 

6045.5 


.976 

1350.0 

2462.0 

2283.5 

1385. 1 

.893 

.975 

.588 




4.44 

6147.5 


.975 

1375.0 

2507.0 

2347.8 

1408.5 

.886 

.973 

.575 




4.44 

6251.4 


.973 

1400.0 

2552.0 

2414.7 

1432.4 

.879 

.972 

.561 




4.44 

6357.1 


.972 

1425.0 

2597.0 

2484.5 

1456.7 

.872 

.970 

.548 




4.44 

6464.9 


.970 

1450.0 

2642.0 

2557.4 

1481.4 

.864 

.968 

.533 




4.44 

6574.7 


.968 

1475.0 

2687.0 

2633.5 

1506.6 

.856 

.966 

.519 




4.44 

6666.6 


.966 

1500.0 

2732.0 

2713.1 

1532. 3 

.848 

.964 

.505 




4.44 

6800.7 


.964 


797 

.111 

.397 

.259 

.301 

.042 

.998 

.922 

793 

.118 

.403 

.258 

.304 

.0 45 

.997 

.932 

789 

.126 

.408 

.257 

.3 06 

.049 

.993 

.939 

785 

.134 

.415 

.257 

.309 

.053 

.990 

.948 

761 

.141 

.420 

.255 

.311 

.0 56 

.984 

.955 

776 

.149 

.426 

.254 

.314 

.060 

.980 

.964 

772 

.157 

.431 

.252 

.316 

.064 

.972 

.970 

767 

.166 

.437 

.250 

.318 

.0 69 

.963 

.976 

762 

.174 

.441 

.247 

.319 

.073 

.952 

.979 

757 

.182 

.445 

.243 

.320 

.077 

.939 

.983 

752 

.191 

.451 

.240 

.322 

.082 

.928 

.988 

747 

.199 

.455 

.237 

.323 

.086 

.914 

.990 

741 

.208 

.460 

.233 

.324 

.091 

.901 

.995 

736 

.217 

.465 

.229 

.325 

.0 96 

.885 

.997 

730 

.225 

.470 

.225 

.326 

.101 

.870 

1 .000 
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SET 6 

ENTER INPUT VALUES (NAMELIST, WITH NAME "NLIST") 


TNLIST F 

=0.4, NUTORF=T, 



SEND 

ENTER RECEIVER 

TEMPERATURES (Ml, M2, M3 

INTEGER) 



ITRCl, ITRC2, 

ITRC3 = 500, 

1500, 

25 



ENTER ENGINE EFFICIENCIES (FREE-FIELD, REAL) 
EFFICIENCIES ENTERED 
tNLIST 

INS = .80000000E+03 

RHOl = .90000000E+00 

RH02 = .96000000E+00 

BSl = .lOOOOOOOE-^01 

BS2 = .10000000E«01 

PHIl = .OOOOOOOOE-^00 

PHIIS = .OOOOOOOOE+00 

PHI2 = .lOOOOOOOE+01 

Cl = .OOOOOOOOE-^00 

CIS = .ooooooooE*oo 

C2 = .OOOOOOOOE^OO 

F = .40000000E+00 

RMA = .64010816E+02 

SLOPER = .20000000E+01 

SPECUL = .50000000E*00 

SOLSD = .23000000E+01 

ALPHA = .lOOOOOOOE+01 

EPS = .lOOOOOOOE’fOl 

TAC = .20000000E>02 

HC = .OOOOOOOOE+00 

ARATIO = .OOOOOOOOE+00 

HK = .OOOOOOOOE+OO 

DTRE = .25000000E+02 

TOC = .50000000E+02 

PCEFCT = .OOOOOOOOE+00 

ENEFCT = .OOOOOOOOE+00 

CYCECT = .OOOOOOOOE+00 

MECHE = .OOOOOOOOE^OO 

AUXE = .ODOOOOOOE+00 

GEARE = .90000000E'»00 

GENE = .98000000E-»00 

PPE = .95000000E+00 

OPTM2E = T 

PARAB = • T 

MAXC = F 

MAXPHI = F 

SECONC = T 

MAXSEC = T 

IPCSEF = F 

lENGEF = T 

ICYCEF = F 

NUTORF = T 

XTRACT = T 

SUP2 = F 

MORDEC = F 

SEND 
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££C£lJ££a_I£M£- E£Ii!i££fi!!i£Cti£. Efil!ltll!ll£R££EI_£A£I* £fikk££: 
_£_ _£_ u/o_stc. iiZSkC. HZfl_5££* MZ£££. MZ2_i££ 

S£CONCA&I OVERALL 2Z£EZkk 

GEOM>£aHC. G EOH.CO NC. I££Ia£&£1> 


500.0 

932.0 

2251.7 

2192.6 

.998 

.998 

.887 




1.23 

2701.5 


.998 

525.0 

977.0 

2299.6 

2238.0 

.998 

.998 

.886 




1.23 

2757.5 


.998 

550.0 

1022.0 

2347.9 

2283.7 

.997 

.998 

.884 




1.23 

2813.8 


.998 

575.0 

1067.0 

2396.6 

2329.8 

.997 

.998 

.882 




1.23 

2870.5 


.998 

600.0 

1112.0 

2445,8 

2376,3 

.997 

.997 

.880 




1.23 

2927.8 


.997 

625.0 

1157.0 

2495.5 

2423.1 

.996 

.997 

.878 




1.23 

2985.6 


.997 

650.0 

1202.0 

2545.7 

2470.5 

.996 

.997 

.876 




1.23 

3043.9 


.997 

675.0 

1247.0 

2596.6 

2518.3 

.996 

.996 

.874 




1.23 

3102.8 


.996 

700.0 

1292.0 

2648.0 

2566.7 

.995 

.996 

.872 




1.23 

3162.4 


.996 

725.0 

1337.0 

2700.1 

2615.6 

.994 

.995 

.869 




1.23 

3222.7 


.995 

750.0 

1382.0 

2752.9 

2665.1 

.994 

.995 

.866 




1.23 

3283.7 


.995 

775.0 

1427.0 

2806.4 

2715.2 

.993 

.994 

.864 




1.23 

3345.4 


.994 

800.0 

1472.0 

2860.6 

2766.0 

.993 

.994 

.861 




1.23 

3408.0 


.994 

825.0 

1517.0 

2915.7 

2817.4 

.992 

.993 

.858 




1..23 

3471.3 


.993 

850.0 

1562.0 

2971.5 

2869.5 

.991 

.992 

.854 




1.23 

3535.5 


.992 

875.0 

1607.0 

3028.2 

2922.4 

.990 

.992 

.851 




1.23 

3600.7 


.992 

900.0 

1652.0 

3085.8 

2976.0 

.989 

.991 

.847 




1.23 

3666.7 


.991 

925.0 

1697.0 

3144.4 

3030.4 

.988 

.990 

.843 




1.23 

3733.7 


.990 

950.0 

1742.0 

3203.9 

3085.6 

.987 

.989 

.839 




1.23 

3801.8 


.989 

975.0 

1787.0 

3264.4 

3141.7 

.986 

.989 

.835 




1.23 

3870.9 


.989 

1000.0 

1832.0 

3325.9 

3198.7 

.985 

.988 

.831 




1.23 

3941.1 


.988 

1025.0 

1877.0 

3388.6 

3256.5 

.984 

.987 

.826 




1.23 

4012.4 


,987 

1050.0 

1922.0 

3452.3 

3315.4 

.983 

.985 

.822 




1.23 

4084.9 


.965 

1075.0 

1967.0 

3517.2 

3375.2 

.982 

.984 

.817 




1.23 

4158.6 


.984 

1100.0 

2012.0 

3583.4 

3436.1 

.980 

.983 

.812 




1.23 

4233.6 


.983 

1125.0 

2057.0 

3650.8 

3498.0 

.979 

.982 

.607 


>S _EFEiciENC3f PCS SI5I£fl-£££l£l£!i£l EBif^CAiUSlSjlEElc* 
M/SEC . DELIA EFFIC . 1IZ2.2££> 2ZS££> Q£klA VZfi-S££« HZ.£££* 


.853 

-.034 

.224 

.189 

.182 

-.007 

.500 

.489 

.852 

-.034 

.243 

.204 

.196 

-.008 

.540 

.528 

.851 

-.033 

.260 

.219 

.210 

-.0 08 

.570 

.566 

.849 

-.033 

.277 

.232 

.223 

-.009 

.614 

.601 

.848 

-.033 

.293 

.245 

.236 

-.009 

.648 

.634 

.646 

-.032 

.308 

.257 

.247 

-.009 

.680 

.665 

.844 

-.032 

.322 

.268 

.258 

-.010 

.709 

.695 

.842 

-.032 

.335 

.278 

.268 

-.010 

.736 

.721 

.840 

-.031 

.347 

.287 

.277 

-.010 

.759 

.744 

.838 

-.031 

.359 

.296 

.286 

-.011 

.784 

.769 

.836 

-.030 

.369 

.303 

.293 

-.011 

.803 

.788 

.834 

-.030 

.378 

.310 

. 30 b 

-.011 

.821 

.806 

.831 

-.029 

.387 

.317 

.306 

-.Oil 

.830 

.822 

.829 

-.029 

.396 

.323 

.312 

-.011 

.853 

.838 

.826 

-.028 

.405 

.329 

.318 

-.011 

.869 

.854 

.823 

-.028 

.412 

.333 

.322 

-.011 

.881 

.866 

.820 

-.027 

.420 

.338 

.327 

-.011 

.894 

.879 

.817 

-.027 

.428 

.343 

.332 

-.011 

.907 

.893 

.813 

-.026 

.435 

.347 

.336 

-.011 

.917 

.904 

.810 

-.025 

.442 

.351 

.340 

-.011 

.928 

.914 

.806 

-.025 

.449 

.354 

.344 

-.011 

.938 

.925 

.802 

-.024 

.455 

.357 

.347 

-.010 

.945 

.933 

.798 

-.023 

.462 

.361 

.351 

-.010 

.955 

.943 

.794 

-.023 

.467 

.363 

.353 

-.010 

.960 

.949 

.790 

-.022 

.474 

.365 

.355 

-.010 

.966 

.956 

.786 

-.021 

.479 

.367 

.357 

-.010 

.971 

.961 






1.23 

4309.9 

.982 

1150.0 

2102.0 

3719.5 

3561.1 

.977 

.981 .801 




1.23 

4387.6 

.981 

1175.0 

2147.0 

3789.6 

3625.2 

.975 

.979 .796 




1.23 

4466.7 

.979 

1200.0 

2192.0 

3861.1 

3690.6 

.974 

.978 .790 




1.23 

4547.2 

.978 

1225.0 

2237.0 

3934.0 

3757.2 

.972 

.976 .784 




1.23 

4629.3 

.976 

1250.0 

2282.0 

4008.5 

3825.1 

.970 

.974 .778 




1.23 

4712.9 

.974 

1275.0 

2327.0 

4084.6 

3894.3 

.968 

.973 .771 




1.23 

4798.2 

.973 

1300.0 

2372.0 

4162.3 

3964.9 

.966 

.971 .765 




1.23 

4885.2 

.971 

1325.0 

2417.0 

4241.8 

4036.9 

.963 

.969 .758 




1.23 

4973.9 

.969 

1350.0 

2462.0 

4323.0 

4110.4 

.961 

.967 .751 




1.23 

5064.4 

.967 

1375.0 

2507.0 

4406.0 

4185.4 

.959 

.965 .744 




1.23 

5156.9 

.965 

1400.0 

2552.0 

4491.0 

4262.0 

.956 

.963 .737 




1.23 

5251.3 

.963 

1425.0 

2597.0 

4578.0 

4340.3 

.953 

.961 .729 




1.23 

5347.7 

.961 

1450.0 

2642.0 

4667.1 

4420.3 

.951 

.958 .722 




1.23 

5446.2 

.958 

1475.0 

2687.0 

4758.3 

4502.0 

.948 

.956 .714 




1.23 

5547.0 

.956 

1500.0 

2732.0 

4851.8 

4585.7 

.945 

.953 .706 




1.23 

5650.0 

.953 


781 

-.020 

.485 

776 

-.019 

.491 

771 

-.019 

.497 

766 

-.018 

.503 

761 

-.017 

.508 

756 

-.016 

.514 

750 

-.015 

.519 

744 

-.014 

.525 

739 

-.013 

.529 

732 

-.012 

.534 

726 

-.011 

.539 

720 

-.010 

.543 

713 

-.008 

.549 

707 

-.007 

.553 

700 

-.006 

.558 


.369 .360 
.371 .362 
.373 . 36 ^) 
. 37 <l .366 
.375 ,367 
.377 .369 
.378 .370 
.378 .371 
.378 .371 
.377 .371 
.377 .372 
.376 ,372 
.376 .372 
.375 .371 
.374 .371 


0 09 

.977 

.968 

009 

.982 

.975 

009 

.986 

.979 

008 

.991 

.984 

008 

.993 

.988 

0 08 

.997 

.993 

0 07 

.999 

.996 

007 

1.000 

.998 

006 

.999 

.999 

006 

.998 

.999 

0 05 

.998 

1.00 0 

005 

.996 

.999 

004 

.995 

1.00 0 

0 04 

.992 

.998 

003 

.990 

.998 
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SET 7 

ENTER INPUT VALUES (NAMELISTt WITH NAME "NLIST") 
SNLIST F=0.5f 


SNLIST 




INS 

= ' 


.80000000E«^03 

RHOl 

= 


.SOOOOOOOE-^OO 

RH02 

= 


.96000000E'»00 

BSl 

r 


.lOOOOOOOE^Ol 

BS2 

= 


• lOOOOOOOE^'Ol 

PHIl 

s 


.OOOOOOOOE^OO 

PHIIS 

r 


.OOOOOOOOE^OO 

PHI2 

= 


.lOOOOOOOE^Ol 

Cl 

= 


.ooooooooE*oo 

CIS 

= 


.OOOOOOOOE^OO 

C2 

= 


.OOOOOOOOE't^OO 

F 

= 


.50000000E«00 

RMA 

r 


.53130088E«02 

SLOPER 

z 


.20000000E-»01 

SPECUL 

r 


.50000000E+00 

SOLSO 

s 


.23000000E'«'01 

ALPHA 

= 


.10000000E4-01 

EPS 

r 


.lOOOOOOOE^Ol 

TAC 

= 


.20000000E«02 

HC 

z 


.OOOOOOOOEi-00 

ARATIO 

= 


.O0OOOOOOE«OO 

HK 

= 


.OOOOOOOOE-^00 

DTRE 

= 


.25000000E'»02 

TOC 

= 


.SOOOOOOOE^-OZ 

PCEFCT 

r 


•OOOOOOOOE^OO 

ENEFCT 

r 


.OOOOOOOOE-i’OO 

CYCECT 

s 


.OOOOOOOOE'i-00 

MECHE 

s 


.ooooooooE«oo 

AUXE 

= 


• OOOOOOOOE'^00 

GEARE 

z 


.SOOOOOOOE-^OO 

GENE 

= 


.98000000E«00 

PPE 

s 


.9S000000E*00 

OPTMZE 

= 

T 


PARAb 

= 

T 


HAXC 

= 

F 


MAXPHI 

= 

F 


SECONC 

s 

T 


MAXSEC 

= 

T 


IPCSEF 

2 

F 


lENGEF 

= 

T 


ICYCEF 

= 

F 


NUTORF 

= 

F 


XTRACT 

= 

T 


SUP2 

= 

F 


HOROEC 

SEND 

= 

F 



SEND 
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Rt££ll£E&_l£H£. PRlM.GEOH.CQtlC . PR 1H.1NTERCEPT_ FACI. CQLLiCIflB-tEE-lLLLtltl PCS SISIEH-fiEElClEIiCl £BA£±!JMi§l§4EE£i£. 



>£- 






LEE1£. 


B^§££* 

Q££IA 

U/0 SEC. 


500.0 

932.0 

SECONDARY OVERALL 

GEOH.CONC. GEOH.CONC. 

2142.0 2012.1 .998 

fiiiEEALk 

I££1^E££I> 

.999 .887 

.855 

-.032 

.224 

.189 

.182 

-.007 

.504 

.477 

525.0 

977.0 

2188.0 

1.55 3122.3 

2052.7 .998 

.999 

.998 .885 

.854 

-.031 

.243 

.204 

.197 

-.007 

.544 

.515 

550.0 

1022.0 

2234.4 

1.55 3185.2 

2093.5 .997 

.998 

.998 .883 

.853 

-.031 

.260 

.218 

.211 

-.008 

.583 

.552 

575.0 

1067.0 

2281.3 

1.55 3248.5 

2134.5 .997 

.998 

.998 .881 

.851 

-.030 

.277 

.232 

.224 

-.008 

.619 

.58 7 

600.0 

1112.0 

2328.6 

1.55 3312.2 

2175.9 .997 

.998 

.998 .879 

.850 

-.029 

.293 

.245 

.236 

-.008 

.653 

.619 

625.0 

1157.0 

2376.4 

1.55 3376.4 

2217.6 .996 

.998 

.997 .877 

.849 

-.029 

.308 

.257 

.248 

-.008 

.685 

.650 

650.0 

1202.0 

2424.8 

1.55 3441.1 

2259.7 .996 

.997 

.997 .875 

.847 

-.028 

.322 

.268 

.259 

-.009 

.714 

.679 

675.0 

1247.0 

2473.8 

1.55 3506.4 

2302.1 .995 

.997 

.997 .873 

.845 

-.027 

.335 

.278 

.269 

-.009 

.742 

.70 5 

700.0 

1292.0 

2523.3 

1.55 3572.2 

2345.0 .995 

.997 

.996 .870 

.844 

-.027 

.347 

.287 

.278 

-.009 

.765 

.728 

725.0 

1337.0 

2573.6 

1.55 3638.8 

2388.3 .994 

.996 

.996 .868 

.842 

-.026 

.359 

.296 

.287 

-.009 

.790 

.75 2 

750.0 

1382.0 

2624.5 

1.55 3706.0 

2432.1 .994 

.996 

.996 .865 

.840 

-.025 

.369 

.303 

.294 

-.009 

.808 

.771 

775.0 

1427.0 

2676.1 

1.55 3773.9 

2476.4 .993 

.996 

.995 .862 

.838 

-.024 

.378 

.310 

.301 

-.009 

.827 

.789 

800.0 

1472.0 

2728.4 

1.55 3842.6 

2521.1 .992 

.995 

.995 .859 

.836 

-.023 

.387 

.316 

.307 

-.009 

.843 

.805 

825.0 

1517.0 

2781.6 

1.55 3912.1 

2566.4 .991 

.995 

.994 .855 

.833 

-.022 

.396 

.322 

.313 

-.008 

.859 

.821 

850.0 

1562.0 

2835.6 

1.55 3982.4 

2612.3 .991 

.994 

.994 .852 

.831 

-.021 

.405 

.328 

.320 

-.008 

.874 

.837 

875.0 

1607.0 

2890.4 

1.55 4053.6 

2658.8 .990 

.994 

.993 .848 

.828 

-.020 

.412 

.332 

.324 

-.008 

.886 

.849 

900.0 

1652.0 

2946.1 

1.55 4125.6 

2705.8 .989 

.993 

.992 .844 

.826 

-.019 

.420 

.337 

.329 

-.008 

.899 

.863 

925.0 

1697.0 

3002.7 

1.55 4198.7 

2753.5 .988 

.992 

.992 .841 

.823 

-.018 

.428 

.342 

.334 

-.007 

.912 

.876 

950.0 

1742.0 

3060.3 

1.55 4272.7 

2801.9 .987 

.992 

.991 .836 

.820 

-.016 

.435 

.345 

.339 

-.0-07 

.922 

.887 

975.0 

1787.0 

3118.9 

1.55 4347.7 

2850.9 .986 

.991 

.990 .832 

.817 

-.015 

.442 

.349 

.343 

-.006 

.932 

.89 8 

1000.0 

1832.0 

3178.6 

1.55 4423.8 

2900.7 .984 

.990 

.990 .828 

.814 

-.014 

.449 

.353 

.347 

-.006 

.942 

.90 9 

1025.0 

1877.0 

3239.3 

1.55 4501.0 

2951.2 .983 

.990 

.989 .823 

.810 

-.012 

.455 

.356 

.350 

-.005 

.949 

.918 

1050.0 

1922.0 

3301.2 

1.55 4579.4 

3002.4 .982 

.989 

.988 .818 

.807 

-.011 

.462 

.359 

.354 

-.005 

.958 

.928 

1075.0 

1967.0 

3364.2 

1.55 4658.9 

3054.5 .980 

.988 

.987 .813 

.803 

-.010 

.467 

.361 

.357 

-.004 

.963 

.935 

1100.0 

2012.0 

3428.4 

1.55 4739.7 

3107.4 .979 

.987 

.986 .808 

.800 

-.008 

.474 

.363 

.360 

-.004 

.970 

.94 3 

1125.0 

2057.0 

3493.9 

1.55 4821.7 

3161.1 .977 

.986 

.985 .802 

.796 

-.006 

.479 

.365 

.362 

-.003 

.974 

.949 
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1150.0 

2102.0 

3560.8 

1.55 4905.1 

3215.7 .976 

.984 

.985 

.797 

.792 

-.005 

.485 

.367 

.365 

-.002 

.980 

.956 

1175.0 

2147.0 

3628.9 

1.55 4989.8 

3271.2 .974 

.982 

.984 

.791 

.768 

-.003 

.491 

.369 

.368 

-.001 

.985 

.96 3 

1200.0 

2192.0 

3698.5 

1.55 5075.9 

3327.6 .972 

.981 

.962 

.785 

.783 

-.001 

.497 

.370 

.369 

-.001 

.988 

.968 

1225.0 

2237.0 

3769.6 

1.55 5163.5 

3385.0 .970 

.980 

.961 

.778 

.779 

.000 

.503 

.372 

.372 

.000 

.992 

.974 

1250.0 

2282.0 

3842.2 

1.55 5252.6 

3443.5 .968 

.979 

.960 

.772 

.774 

.002 

.508 

.373 

.374 

.001 

.994 

.979 

1275.0 

2327.0 

3916.4 

1.55 5343.3 

3503.0 .966 

.977 

.979 

.765 

.769 

.004 

.514 

.374 

.376 

.002 

.998 

.985 

1300.0 

2372.0 

3992.3 

1.55 5435.6 

3563.5 .964 

.976 

.977 

.759 

.764 

.006 

.519 

.374 

.377 

.003 

.999 

.988 

1325.0 

2417.0 

4069.9 

1.55 5529.6 

3625.2 .961 

.974 

.976 

.752 

.759 

.008 

.525 

.375 

.379 

.004 

1.000 

.992 

1350.0 

2462.0 

4149.2 

1.55 5625.3 

3688.0 .959 

.972 

.974 

.744 

.754 

.010 

.529 

.374 

.379 

.005 

.999 

.99 3 

1375.0 

2507.0 

4230.5 

1.55 5722.8 

3752.1 .956 

.971 

.972 

.737 

.749 

.012 

.534 

.374 

.380 

.0 06 

.997 

.995 

1400.0 

2552.0 

4313.7 

1.55 5822.2 

3817.4 .953 

.969 

.971 

.729 

.743 

.014 

.539 

.373 

.381 

.007 

.997 

.997 

1425.0 

2597.0 

4398.9 

1.55 5923.5 

3884.0 .951 

.967 

.969 

.722 

.738 

.016 

.543 

.372 

.381 

.008 

.994 

.997 

1450.0 

2642.0 

4486.2 

1.55 6026.8 

3951.9 .948 

.965 

.967 

.714 

.732 

.018 

.549 

.372 

.381 

.009 

.993 

.999 

1475.0 

2687.0 

4575.7 

1.55 6132.2 

4021.2 .944 

.963 

.965 

.705 

.726 

.020 

.553 

.371 

.381 

.011 

.989 

.999 

1500.0 

2732.0 

4667.5 

1.55 6239.7 

4091.9 .941 

.961 

.963 

.697 

.720 

.023 

.558 

.370 

.382 

.012 

.987 

1.000 




1.55 6349.4 


.961 
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SET 8 

ENTER INPUT 

VALUES (NAMELIST, WITH NAME "NLIST") 

SNLIST 


F 

= 0.G, 

SNLIST 

INS 

- 


.80000000E+03 

RHOl 



.90000000E+00 

RH02 

= 


.9GOOOOOOE-»00 

BSI 

= 


.10000000E«01 

BS2 

= 


.lOOOOOOOE-^Ol 

PHIl 

= 


.OOOOOOOOE^OO 

PHIIS 

s 


.ooooooooE«oo 

PHI2 

= 


.lOOOOQOOE-^01 

Cl 

= 


.OOOOOOOOE-^00 

CIS 

= 


.OQOOOOOOE-^00 

C2 

= 


.ooooooooE*oo 

F 



.60000000E*00 

RHA 

= 


.A5239635E+02 

SLOPFR 

= 


.20000000E-»01 

SPECUL 

r 


.SOOOOOOOE^OO 

SOLSD 

= 


.23000000E-^01 

ALPHA 



.lOOOOOOOE-fOl 

EPS 

= 


.lOOOQO00E-»Ol 

TAC 

: 


.20000000E'»02 

HC 

s 


.ooooooooE-»oo 

ARATIO 

= 


.OOOOOOOOE-^00 

HK 

z 


.OOOOOOOOE+00 

DTRE 

: 


.25000000E*02 

TOC 

z 


.50000000E«02 

PCEFCT 

z 


.OOOOOOOOE+00 

ENEFCT 

z 


.ooooooooE«oo 

CYCECT 

z 


.OOOOOOOOE^OO 

MECHE 

z 


.OOOOOOOOEt’OO 

AUXE 

z 


.ooooooooE■^oo 

GEARE 

z 


.90000000E'»00 

GENE 

z 


.98000000E+00 

PPE 

z 


.9SOOOOOOE«00 

OPTM2E 

z 

T 


PARAB 

z 

T 


MAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

T 


MAXSEC 

z 

T 


IPCSEF 

= 

F 


lENGEF 

z 

T 


ICYCEF 

z 

F 


NWTORF 

z 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


MORDEC 

z 

F 



SEND 


SEND 
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R trctl.v£R_lEHp . EEIHi£tfiE*£ClSl£. EfilIU.IlllIiE£tEl_EA£I* COLLLCIfiE.LEEitlEtiCl PCS smiH_£EEl£l£N£l EEAC.aAXiSY§i£FFlc. 


_£_ 

_£_ 

i<Z£-£££. 

SECONfiAfil OVERALL 

GEOM.CONC. GEOM.CONC. 

EZSEC. WZ0_E££ 

OVERALL 

i££IiEA£I. 

• U/SEC 

• CELIA 

£E£I£. 

U/0 SEC. 

UZ£££« 

Q£L1A 

U/0 SEC. 

M2_SEC 

500.0 

932.0 

1845.9 

1669.2 .998 

1.97 3280.5 

.999 .884 

.999 

.855 

-.029 

.224 

.188 

.182 

-.006 

.517 

.473 

525.0 

977.0 

1886.8 

1702.5 .997 

1.97 3346.0 

.998 .882 

.998 

.854 

-.028 

.243 

.203 

.197 

-.007 

.558 

.511 

550.0 

1022.0 

1928.0 

1736.0 .997 

1.97 3411.9 

.998 .880 

.998 

.853 

-.027 

.260 

.218 

.211 

-.007 

.597 

.548 

575.0 

1067.0 

1969.7 

1769.8 .996 

1.97 3478.2 

.998 .878 

.998 

.852 

-.026 

.277 

.231 

.224 

-.007 

.634 

.582 

600.0 

1112.0 

2011.9 

1803.7 .996 

1.97 3544.9 

.998 .876 

.998 

.851 

-.025 

.293 

.244 

.237 

-.007 

.669 

.615 

625.0 

1157.0 

2054.6 

1838.0 .995 

1.97 3612.2 

.998 .874 

.998 

.849 

-.024 

.308 

.255 

.248 

-.007 

.701 

.645 

650.0 

1202.0 

2097.8 

1872.5 .995 

1.97 3680.1 

.997 .871 

.997 

.848 

-.023 

.322 

.266 

.259 

-.007 

.731 

.673 

675.0 

1247.0 

2141.7 

1907.3 .994 

1.97 3748.5 

.997 .868 

.997 

.846 

-.022 

.335 

.276 

.269 

-.007 

.759 

.700 

700.0 

1292.0 

2186.1 

1942.5 .994 

1.97 3817.6 

.997 .865 

.997 

.845 

-.021 

.347 

.285 

.278 

-.007 

.782 

.722 

725.0 

1337.0 

2231.1 

1978.0 .993 

1.97 3887.4 

.996 .862 

.996 

.843 

-.020 

.359 

.294 

.287 

-.007 

.807 

.747 

750.0 

1382.0 

2276.9 

2013.9 .992 

1.97 3957.9 

.996 .859 

.996 

.841 

-.018 

.369 

.301 

.295 

-.0 06 

.826 

.765 

775.0 

1427.0 

2323.3 

2050.1 .991 

1.97 4029.1 

.995 .856 

.995 

.839 

-.017 

.378 

.308 

.302 

-.006 

.844 

.783 

800.0 

1472.0 

2370.5 

2086.8 .991 

1.97 4101.2 

.995 .852 

.995 

.837 

-.015 

.387 

.313 

.308 

-.006 

.860 

.800 

825.0 

1517.0 

2418.5 

2123.9 .990 

1.97 4174.1 

.995 .848 

.995 

.835 

-.014 

.396 

.319 

.314 

-.005 

.876 

.816 

850.0 

1562.0 

2467.3 

2161.4 .989 

1.97 4247.8 

.994 .844 

.994 

.832 

-.012 

.405 

.325 

.320 

-.005 

.891 

.832 

875.0 

1607.0 

2516.9 

2199.4 .988 

1.97 4322.5 

.993 .840 

.993 

.830 

-.010 

.412 

.329 

.325 

-.004 

.902 

.844 

900.0 

1652.0 

2567.5 

2237.9 .987 

1.97 4398.1 

.993 .836 

.993 

.827 

-.008 

.420 

.333 

.330 

-.003 

.915 

.857 

925.0 

1697.0 

2618.9 

2276.8 .985 

1.97 4474.7 

.992 .831 

.992 

.825 

-.006 

.428 

.338 

.335 

-.0 03 

.927 

.871 

950.0 

1742.0 

2671.3 

2316.3 .984 

1.97 4552.4 

.992 .827 

.992 

.822 

-.005 

.435 

.341 

.340 

-.002 

.937 

.882 

975.0 

1787.0 

2724.7 

2356.4 .983 

1.97 4631.1 

.991 .822 

.991 

.819 

-.002 

.442 

.345 

.344 

-.001 

.947 

.893 

1000.0 

1832.0 

2779.1 

2397.0 .981 

1.97 4710.9 

.990 .816 

.990 

.816 

-.000 

.449 

.348 

.348 

-.000 

.956 

.904 

;025.0 

1877.0 

2834.6 

2438.2 .980 

1.97 4791.8 

.989 .811 

.989 

.813 

.002 

.455 

.351 

.351 

.001 

.963 

.913 

1050.0 

1922.0 

2891.3 

2480.0 .978 

1.97 4873.9 

.988 .805 

.988 

.810 

.004 

.462 

.354 

.355 

.002 

.971 

.923 

1075.0 

1967.0 

2949.1 

2522.4 .977 

1.97 4957.3 

.988 .800 

.988 

.806 

.006 

.467 

.355 

.356 

.003 

.973 

.930 

1100.0 

2012.0 

3008.1 

2565.5 .975 

1.97 5042.0 

.987 .794 

.987 

.803 

.009 

.474 

.357 

.361 

.004 

.980 

.938 

1125.0 

2057.0 

3068.5 

2609.2 .973 

.986 .787 

.799 

.011 

.479 

.358 

.363 

.005 

.984 

.944 
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986 


1.97 5127.9 


1150.0 

2102.0 

3130.1 

2653.6 .971 

1.97 5215.2 

.985 

.781 

.985 

.795 

.014 

.485 

.360 

.366 

.006 

.988 

.952 

1175.0 

2147.0 

3193.1 

2698.8 .969 

1.97 5304.0 

.983 

.774 

.983 

.791 

.017 

.491 

.361 

.369 

.008 

.992 

.959 

1200.0 

2192.0 

3257.6 

2744.7 .967 

1.97 5394.2 

.982 

.768 

.982 

.787 

.019 

.497 

.362 

.371 

*009 

.994 

.964 

1225.0 

2237.0 

3323.5 

2791.4 .964 

1.97 5485.9 

.981 

.761 

.981 

.783 

.022 

.503 

.363 

.374 

.011 

.997 

.971 

1250.0 

2282.0 

3391.0 

2638.8 .962 

1.97 5579.2 

.980 

.753 

.980 

.778 

.025 

.508 

.364 

.376 

.012 

.998 

.976 

1275.0 

2327.0 

3460.2 

2887.1 .959 

1.97 5674.1 

.978 

.746 

.978 

.774 

.028 

,514 

.364 

,378 

.014 

1.000 

.982 

1300.0 

2372.0 

3531.0 

2936.3 .956 

1.97 5770.7 

.977 

.738 

.977 

.769 

.031 

.519 

.364 

.379 

.015 

1.000 

.986 

1325.0 

2417.0 

3603.6 

2986.3 .954 

1.97 5869.0 

.975 

.730 

.975 

.764 

.034 

.525 

.364 

.381 

.017 

.999 

.989 

1350.0 

2462.0 

3678.0 

3037.2 .951 

1.97 5969.1 

.974 

.722 

.974 

.759 

.037 

.529 

.363 

.382 

.019 

.996 

.991 

1375.0 

2507.0 

3754.4 

3089.1 .948 

1.97 6071.1 

.972 

.714 

.972 

.754 

.040 

.534 

.362 

.382 

.020 

.993 

.993 

1400.0 

2552.0 

3832.8 

3142.0 .944 

1.97 6175.0 

.970 

.705 

.970 

.749 

.044 

.539 

.361 

.383 

.022 

.991 

.995 

1425.0 

2597.0 

3913.2 

3195.8 .941 

1.97 6280.9 

.969 

.696 

.969 

.743 

.047 

.543 

.359 

.384 

.024 

.987 

.996 

1450.0 

2642.0 

3995.9 

3250.8 .937 

1.97 6388.8 

.967 

.687 

.967 

.738 

.050 

.549 

.358 

.384 

.026 

.983 

.998 

1475.0 

2687.0 

4080.9 

3306.8 .934 

1.97 6498.9 

.965 

.678 

.965 

.732 

.054 

.553 

.356 

.384 

.028 

.978 

.999 

1500.0 

2732.0 

4168.2 

3363.9 .930 

1.97 6611.2 

.963 

.669 

.963 

.726 

.057 

.558 

.355 

.385 

.030 

.974 

1 .000 
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SET 9 

ENTER INPUT VALUES (NAMELIST* UITH NAME "NLIST") 
$NLIST F=0.8* 


SNLIST 

INS 

- 


.80000000E«03 

RHOl 

r 


.90000000E-»00 

RH02 

= 


.9SOOOOOOEi’00 

BSl 

= 


.lOOOOOOOE't'Ol 

BS2 

s 


.IOOOOOOOE'^01 

PHIl 

z 


.OOOOOCOOE^OO 

PHIIS 

z 


.OOOOOOOOE-^00 

PHI2 

z 


.lOOOOOOOE-^01 

Cl 

s 


.ooooooooE«oo 

CIS 

s 


.OOOOOOOOE^OO 

C2 

= 


.OOOOOOOOE^OO 

F 

z 


.aoooooooE-t^oo 

RHA 

z 


.3A707fl7aE^02 

SLOPER 

z 


.20000000E401 

SPECUL 

z 


.SOOOOOOOE^OO 

SOLSO 

z 


.23000000E-»01 

ALPHA 

z 


.lOOOOOOOE-^Ol 

EPS 

z 


.lOOOOOOOE-^Ol 

TAC 

z 


.20000000E«02 

HC 

z 


.OOOQOOOOE-fOO 

ARATIO 

z 


.OOOOOOOOE-^OO 

HK 

5 


.OOOOOOOOE-^OQ 

OTRE 

s 


.25000000E'»02 

TOC 

z 


.50000000E-»02 

PCEFCT 

z 


.OOOOOOOOE«^00 

ENEFCT 

z 


.ooooooooE«oo 

CYCECT 

z 


.ooooooooE«oo 

MECHE 

z 


.OOOOOOOOE+00 

AUXE 

z 


.00000000E-»00 

GEARE 

z 


.90000000E'»00 

GENE 

z 


,98000000E-»00 

PPE 

z 


.9SOOOOOOE''-O0 

0PTM2E 

z 

T 


PARAB 

z 

T 


MAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

T 


HAXSEC 

z 

T 


IPCSEF 

z 

F 


IEN6EF 

z 

T 


ICYCEF 

z 

F 


NUTORF 

z 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


HORDEC 

z 

F 


SEND 





$ENO 
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CELIA 

CZii-EEE* 

MZ-EEE 

500.0 

932.0 

1322.2 

1109.5 .996 

3.04 3376.7 

,999 

.878 

.999 

.856 

-.022 

.224 

.187 

.182 

-.005 

.549 

.471 

525.0 

977.0 

1353.6 

1131.5 .996 

3.04 3443.8 

.999 

.875 

.999 

.855 

-.021 

.243 

.202 

.197 

-.005 

.593 

.509 

550.0 

1022.0 

1385.5 

1153.7 .995 

3.04 3511.3 

.998 

.873 

.998 

.853 

-.019 

.260 

.216 

.211 

-.005 

.634 

.545 

575.0 

1067.0 

1417.7 

1176.0 .995 

3.04 3579.1 

.998 

.870 

.998 

.852 

-.017 

.277 

.229 

.224 

-.005 

.672 

.580 

600.0 

1112.0 

1450.5 

1198.4 .994 

3.04 3647.5 

.998 

. 866 
.998 

.851 

-.015 

.293 

.241 

.237 

-.004 

.708 

.612 

625.0 

1157.0 

1483.8 

1221.0 .993 

3.04 3716.3 

.998 

.863 

.998 

.850 

-.013 

.308 

.252 

.248 

-.004 

.742 

.642 

650.0 

1202.0 

1517.6 

1243.8 .992 

3.04 3785.7 

.997 

.860 

.997 

.848 

-.011 

.322 

.263 

.259 

-.003 

.773 

.671 

675.0 

1247.0 

1551.9 

1266.8 .991 

3.04 3855.7 

.997 

.856 

.997 

.847 

-.009 

.335 

.272 

.270 

-.003 

.801 

.697 

700.0 

1292.0 

1586.9 

1290.0 .991 

3.04 3926.4 

.997 

.852 

.997 

.845 

-.007 

.347 

.280 

.278 

-.002 

.824 

.719 

725.0 

1337.0 

1622.5 

1313.5 .990 

3.04 3997.7 

.996 

.848 

.996 

.843 

-.004 

.359 

.289 

.288 

-.001 

.849 

.74 3 

750.0 

1382.0 

1658.8 

1337.2 .988 

3.04 4069.7 

.996 

.843 

.996 

.842 

-.001 

.369 

.295 

.295 

-.001 

.868 

.762 

775.0 

1427.0 

1695.8 

1361.1 .987 

3.04 4142.6 

.996 

.838 

.996 

.840 

.001 

.378 

.301 

.302 

.000 

.886 

.780 

800.0 

1472.0 

1733.5 

1385.3 .986 

3.04 4216.2 

.995 

.833 

.995 

.838 

.004 

.387 

.307 

.308 

.002 

.901 

.796 

825.0 

1517.0 

1772.0 

1409.7 .985 

3.04 4290.6 

.995 

.828 

.995 

.836 

.007 

.396 

.312 

.314 

.003 

.916 

.812 

850.0 

1562.0 

1811.2 

1434.5 .983 

3.04 4365.9 

.994 

.823 

.994 

.833 

.010 

.405 

.316 

.320 

.004 

.930 

.828 

875.0 

1607.0 

1851.4 

1459.5 .982 

3.04 4442.2 

.994 

.817 

.994 

.831 

.014 

.412 

.320 

.325 

.005 

.940 

.840 

900.0 

1652.0 

1892.4 

1484.9 .980 

3.04 4519.3 

.993 

.811 

.993 

.828 

.017 

.420 

.324 

.330 

.007 

.951 

.854 

925.0 

1697.0 

1934.3 

1510.6 .978 

3.04 4597.5 

.993 

.805 

.993 

.826 

.021 

.428 

.327 

.336 

.008 

.962 

.867 

950.0 

1742.0 

1977.1 

1536.6 .976 

3.04 4676.7 

.992 

.799 

.992 

.823 

.025 

.435 

.330 

.340 

.010 

.970 

.879 

975.0 

1787.0 

2021.0 

1562.9 .974 

3.04 4757.0 

.991 

.792 

.991 

.820 

.028 

.442 

.332 

.344 

.012 

.977 

.890 

1000.0 

1832. 0 

2065.9 

1589.7 .972 

3.04 4838.3 

.990 

.785 

.990 

.817 

.032 

.449 

.335 

.349 

.014 

.984 

.901 

1025.0 

1877.0 

2112.0 

1616.8 .970 

3.04 4920.8 

.990 

.778 

.990 

.814 

.036 

.455 

.336 

.352 

.016 

.988 

.910 

1050.0 

1922.0 

2159.1 

1644.3 .967 

3.04 5004.6 

.989 

.770 

.989 

.811 

.041 

.462 

.338 

.356 

.018 

.994 

.920 

1075.0 

1967.0 

2207.5 

1672.2 .965 

3.04 5089.5 

.988 

.763 

.988 

.808 

.045 

.467 

.339 

.359 

.020 

.995 

.927 

1100.0 

2012.0 

2257.2 

1700.5 .962 

3.04 5175.7 

.987 

.755 

.987 

.804 

.050 

.474 

.340 

.362 

.022 

.998 

.935 

1125.0 

2057.0 

2308.1 

1729.3 .959 

.986 

.746 

.801 

.054 

.479 

.340 

.364 

.0 25 

.998 

.941 
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966 


3.04 5263.3 


1150.0 

2102.0 

2360.5 

1758.5 .956 

3.04 5352.2 

.985 

.738 

.965 

.797 

.059 

.485 

.340 

.367 

.027 

.999 

.949 

1175.0 

2147.0 

2414.2 

1788.2 .953 

3.04 5442.5 

.984 

.729 

.964 

.793 

.064 

.491 

.340 

.370 

.030 

1.000 

.957 

1200.0 

2192.0 

2469.5 

1816.3 .950 

3.04 5534.3 

.983 

.720 

.983 

.789 

.069 

.497 

.340 

.372 

.033 

.998 

.962 

1225.0 

2237.0 

2526.4 

1849.0 .946 

3.04 5627.6 

.982 

.711 

.982 

.785 

.074 

.503 

.339 

.375 

.035 

.998 

.969 

1250.0 

2282.0 

2585.0 

1880.2 .943 

3.04 5722.4 

.980 

.701 

.980 

.780 

.079 

.508 

.338 

.377 

.038 

.995 

.974 

1275.0 

2327.0 

2645.3 

1911.9 .939 

3.04 5818.9 

.979 

.691 

.979 

.776 

.085 

.514 

.338 

.379 

.041 

.993 

.98 0 

1300.0 

2372.0 

2707.4 

1944.1 .935 

3.04 5917.1 

.978 

.681 

.978 

.771 

.090 

.519 

.336 

.381 

.045 

.988 

.984 

1325.0 

24 X 7.0 

2771.5 

1976.9 .931 

3.04 6017.0 

.976 

.671 

.976 

.767 

.096 

.525 

.334 

.382 

.048 

.983 

.988 

1350.0 

2462.0 

2837.6 

2010.3 .926 

3.04 6118.7 

.975 

.660 

.975 

.762 

.102 

.529 

.332 

.383 

.051 

.976 

.990 

1375.0 

2507.0 

2905.9 

2044.4 .921 

3.04 6222.2 

.973 

.650 

.973 

.757 

.107 

.534 

.329 

.384 

.054 

.968 

.992 

1400.0 

2552.0 

2976.4 

2079.0 .917 

3.04 6327.7 

.971 

.638 

.971 

.752 

.113 

.539 

.327 

.385 

.058 

.961 

.995 

1425.0 

2597.0 

3049.3 

2114.3 .912 

3.04 6435.1 

.970 

.627 

.970 

.746 

.119 

.543 

.324 

.385 

.061 

.952 

.996 

1450.0 

2642.0 

3124.7 

2150.3 .906 

3.04 6544.6 

.968 

.616 

.968 

.741 

.125 

.549 

.321 

.386 

.065 

.943 

.998 

1475.0 

2687.0 

3202.7 

2187.0 .901 

3.04 6656.2 

.966 

.604 

.966 

.735 

.131 

.553 

.317 

.386 

.069 

.933 

.998 

1500.0 

2732.0 

3283.6 

2224.4 .895 

3.04 6770.1 

.964 

.592 

.964 

.729 

.137 

.558 

.314 

.387 

.073 

.923 

1.000 
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SET 10 

ENTER INPUT VALUES (NAMELISTt WITH NAME "NLIST") 
$NLIST F=1.0t 


SNLIST 




INS 

= 


.80000000E'»03 

RHOl 

= 


.90000000E'»00 

RH02 

z 


,96000000£*00 

BSl 

z 


.IOOOOOOOE'^01 

BS2 

z 


.IOOOOOOOE'^01 

PHI! 

z 


.OOOOOOOOE't^OO 

PHIIS 

s 


.ooooooooE'»oo 

PHI2 

= 


.lOOOOOOOEfOl 

Cl 

= 


.ooooooooE-»oo 

CIS 

= 


.00000000E«00 

C2 



.ooooooooE-»oo 

F 

= 


.10000000E-»01 

RMA 

= 


.28072355E*02 

SLOPER 

z 


.aOOOOOOOE-i-Ol 

SPECUL 

z 


.soooooooE«oo 

SOLSO 

z 


.23000000E*01 

ALPHA 

z 


.lOOOOOOOE^Ol 

EPS 

z 


.lOOOOOOOE+01 

TAC 

z 


.20000000E>02 

HC 

z 


.OOOOOOOOE-^00 

ARATIO 

s 


.OOOOOOOOE^OO 

HK 

z 


.OOOOOOOOE-^00 

DTRE 

z 


,25000000E*02 

TOC 

= 


.SOOOOOOOE'i-02 

PCEFCT 

z 


.OOOOOGOOE-t^OO 

ENEFCT 

z 


.00000O00E'»00 

CYCECT 

z 


.OOOOOOOOE^OO 

HECHE 

z 


,00000000€*00 

AUXE 

z 


.ooooooooE«oo 

GEARE 

z 


.90000000E400 

GENE 

z 


.98000000E«00 

PPE 

z 


.95000000E«00 

0PTK2E 

z 

T 


PARAB 

z 

T 


MAXC 

z 

F 


MAXPHI 

z 

F 


SECONC 

z 

T 


NAXSEC 

z 

T 


IPCSEF 

z 

F 


lENGEF 

z 

T 


ICYCEF 

z 

F 


NUTORF 

z 

F 


XTRACT 

z 

T 


SUP2 

z 

F 


PORDEC 

SEND 

= 

F 



SEND 
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££CEim_I£a£. 

EaittilMItaiEEI-EACI. Cfl£L£CIflB_£LE£l£ltlSl£l 

PCS 

sm£ti 

_£££ 1 £ 1 £ncy 

FRAC . HAX . SYS.EFFIC 


_£_ 

SECONQAEi fl^BALL 

SVCEALL 

I£EI*£A£I* 

BZS££. 

£)£klA 

£££!£. 



Q£kli 

i^Z£_£££. 

MZ-£££> 

500.0 

932.0 

977.4 

765.0 .995 

4.44 3395.4 

.999 

.870 

.999 

. 856 

-.014 

.224 

.185 

.182 

-.003 

.579 

.470 

525.0 

977.0 

1002.3 

780.2 .994 

4.44 3462.7 

.999 

.866 

.999 

.855 

-.012 

.243 

.200 

.197 

-.003 

.625 

.508 

550.0 

1022.0 

1027.7 

795.5 .993 

4.44 3530.5 

.998 

.863 

.998 

.854 

-.009 

.260 

.213 

.211 

-.002 

.667 

.545 

575.0 

1067.0 

1053.4 

810.8 .992 

4.44 3598.6 

.998 

.859 

.998 

.852 

-.006 

.277 

.226 

.224 

-.002 

.707 

.579 

600.0 

1112.0 

1079.7 

826.3 .991 

4.44 3667.3 

.998 

.854 

.998 

.851 

-.003 

.293 

.238 

.237 

-.001 

.744 

.611 

625.0 

1157.0 

1106.4 

841.9 .990 

4.44 3736.4 

.998 

.850 

.998 

.850 

-.000 

.308 

.249 

.248 

-.000 

.778 

.642 

650.0 

1202.0 

1133.7 

857.6 .989 

4.44 3806.1 

.997 

.845 

.997 

.848 

.003 

.322 

.258 

.259 

.001 

.809 

.670 

675.0 

1247.0 

1161.6 

873.4 .988 

4.44 3876.4 

.997 

.840 

.997 

.847 

.007 

.335 

.267 

.270 

.002 

.837 

.696 

700.0 

1292 . 0 

1190.0 

889.4 .986 

4.44 3947.4 

.997 

.835 

.997 

.845 

.011 

.347 

.275 

.278 

.003 

.860 

.719 

725.0 

1337.0 

1219.1 

905.6 .985 

4.44 4019.0 

.996 

.829 

.996 

.844 

.015 

.359 

.283 

.288 

.005 

.885 

.743 

750.0 

1382.0 

1248.8 

921.9 .983 

4.44 4091.4 

.996 

.823 

.996 

.842 

.019 

.369 

.288 

.295 

.007 

.902 

.761 

775.0 

1427.0 

1279.2 

938.3 .981 

4.44 4164.5 

.996 

.817 

.996 

.840 

.023 

.378 

.294 

.302 

.006 

.919 

.780 

800.0 

1472.0 

1310.4 

955.0 .980 

4.44 4238.4 

.995 

.810 

.995 

.838 

.027 

.387 

.296 

.308 

.010 

.933 

.796 

825.0 

1517.0 

1342.3 

971.8 .978 

4.44 4313.1 

.995 

.803 

.995 

.836 

.032 

.396 

.302 

.314 

.012 

.946 

.812 

850.0 

1562.0 

1375.0 

988.9 .976 

4.44 4388.7 

.994 

.796 

.994 

.833 

.037 

.405 

.306 

.321 

.014 

.958 

.628 

875.0 

1607.0 

1408.6 

1006.1 .973 

4.44 4465.3 

.994 

.789 

.994 

.831 

.042 

.412 

.309 

.325 

.017 

.966 

.64 0 

900.0 

1652 . 0 

1443.1 

1023.6 .971 

4.44 4542.7 

.993 

.781 

.993 

.829 

.048 

.420 

.312 

.331 

.019 

.975 

.853 

925.0 

1697.0 

1478.5 

1041.2 .968 

4.44 4621.2 

.993 

.773 

.993 

.826 

.053 

.428 

.314 

.336 

.0 22 

.983 

.667 

950.0 

1742.0 

1514.8 

1059.2 .966 

4.44 4700.7 

.992 

.765 

.992 

.623 

.059 

.435 

.316 

.340 

.0 24 

.988 

.878 

975.0 

1787.0 

1552.3 

1077.3 .963 

4.44 4781.3 

.991 

.756 

.991 

.621 

.065 

.442 

.317 

.344 

.027 

.993 

.889 

1000.0 

1832.0 

1590.7 

1095.7 .960 

4.44 4862.9 

.991 

.747 

.991 

.818 

.071 

.449 

.319 

.349 

.030 

.997 

.900 

1025.0 

1877.0 

1630.4 

1114.4 .956 

4.44 4945.8 

.990 

.738 

.990 

.815 

.077 

.455 

.319 

.352 

.033 

.998 

.909 

1050.0 

1922.0 

1671.2 

1133.3 .953 

4.44 5029.8 

.989 

.728 

.989 

.811 

.083 

.462 

.320 

.356 

.037 

1.000 

.920 

1075.0 

1967.0 

1713.3 

1152.5 .949 

4.44 5115.0 

.988 

.718 

.988 

.808 

.090 

.467 

.319 

.359 

.040 

.998 

.927 

1100.0 

2012.0 

1756.8 

1172.0 .945 

4.44 5201.5 

.987 

.708 

.987 

.605 

.097 

.474 

.318 

.362 

.044 

.996 

.935 

1125.0 

2057.0 

1801.6 

1191.8 .941 

.986 

.697 

.801 

.104 

.479 

.317 

.364 

.047 

.992 

.941 
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986 


5289.4 


1150.0 

2102.0 

1848.0 

1211.9 .937 

4.44 5378.6 

.985 

.686 

.985 

.797 

.111 

.485 

.316 

.367 

.051 

.989 

.949 

1175.0 

2147.0 

1895.9 

1232.3 .932 

4.44 5469.2 

.984 

.675 

.984 

.793 

.118 

.491 

.315 

.370 

.055 

.986 

.956 

1200.0 

2192.0 

1945.4 

1253.1 .927 

4.44 5561.3 

.983 

.663 

.983 

.789 

.126 

.497 

.313 

.372 

.059 

.979 

.962 

1225.0 

2237.0 

1996.7 

1274.2 .922 

4.44 5654.9 

.982 

.652 

.982 

.785 

.134 

.503 

.311 

.375 

.064 

.974 

.968 

1250.0 

2282.0 

2049.9 

1295.6 .917 

4.44 5750.1 

.981 

.639 

.981 

.781 

.141 

.508 

.309 

.377 

.068 

.966 

.973 

1275.0 

2327.0 

2105.0 

1317.4 .911 

4.44 5846.9 

.979 

.627 

.979 

.776 

.149 

.514 

.306 

.379 

.073 

.959 

.979 

1300.0 

2372.0 

2162.3 

1339.6 .906 

4.44 5945.3 

.978 

.615 

.978 

.772 

.157 

.519 

.303 

.381 

.078 

.949 

.984 

1325.0 

2417.0 

2221.7 

1362.2 .899 

4.44 6045.5 

.976 

.602 

.976 

.767 

.166 

.525 

.300 

.382 

.083 

.939 

.988 

1350.0 

2462.0 

2283.5 

1385.1 .893 

4.44 6147.5 

.975 

.588 

.975 

.762 

.174 

.529 

.296 

.383 

.087 

.926 

.99 0 

1375.0 

2507.0 

2347.8 

1408.5 .886 

4.44 6251.4 

.973 

.575 

.973 

.757 

.182 

.534 

.292 

.384 

.092 

.912 

.991 

1400.0 

2552.0 

2414.7 

1432.4 .879 

4.44 6357.1 

.972 

.561 

.972 

.752 

.191 

.539 

.287 

.385 

.0 98 

.899 

.994 

1425.0 

2597.0 

2484.5 

1456.7 .872 

4.44 6464.9 

.970 

.548 

.970 

.747 

.199 

.543 

.283 

.386 

.103 

.884 

.995 

1450.0 

2642.0 

2557.4 

1481.4 .864 

4.44 6574.7 

.968 

.533 

.968 

.741 

.208 

.549 

.278 

.386 

.108 

.870 

.998 

1475. 0 

2687.0 

2633.5 

1506.6 .856 

4.44 6686.6 

.966 

.519 

.966 

.736 

.217 

.553 

.273 

.387 

.114 

.854 

.998 

1500.0 

2732.0 

2713.1 

1532.3 .848 

4.44 6800.7 

.964 

.505 

.964 

.730 

.225 

.558 

.268 

.387 

.120 

.838 

1 .000 
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SET 11 

ENTER INPUT VALUES (NAMELISTt WITH NAME "NLIST") 
STOP NORMAL 

3BLK»S XTRACT»506/13»LSPH 

BLOCK 5.13 SL74R1 12/16/83 14:58:34 

30 PAGES SENT TO: 506/13tLSPH 

BFIN 



APPENDIX D 

LISTING, WITH SYMBOL TABLE AND INDEX 


D-1 




D-3 


clement; jaffe*solari.conc/ii options: bfqs 

ATHENA EXTENDED FORTRAN 25J-28 (14 SEP 82) 


COMPILATION DONE 

ON 13 DEC S3 

AT li:i8;52 




MAIN PROGRAM 





SUBROUTINE 

NAMLRD 

ENTRY POINT 

03727 

SEQ 

001474 

SUBROUTINE 

OPT 

ENTRY POINT 

06153 

SEQ 

001674 

ENTRY 

CKNOPT 

ENTRY POINT 

06156 

SEQ 

001712 

ENTRY 

CKOPT 

ENTRY POINT 

06161 

SEQ 

002241 

ENTRY 

OPTAP 

ENTRY POINT 

06164 

SEQ 

002432 

STORAGE USED 

(BLOCKt NAMEt 

LENGTH) 




0001 

• CODE 

006167 




0006 

• CODE 

000000 




0000 

• TEMP 

000066 




0004 

•CONSTANTS 

001665 




0002 

•SIMPLE VAR 

000113 




0010 

•ARRAYS 

002133 




0011 

NSBLNK 000000 





EXTERNAL REFERENCES 


0012 

CSF8 

0013 

PRINTS 

0014 

ASSIGN 

0015 

SLUP 

0016 

NINTRS 

0017 

NCR18S 

0020 

NRDUS 

0021 

NI02S 

0022 

NUOUS 

0023 

NUNLS 

0024 

NSTOPS 

0025 

NIOIS 

0026 

ATH4S 

0027 

NI03S 

0030 

NREUS 

0031 

NRNLS 

0032 

NERIOS 

0033 

NER19S 

0034 

ALOG 

0035 

ATAN2 

0036 

SIN 

0037 

COS 

0040 

TAN 

0041 

EXP 

0042 

SORT 

0043 

NER21S 

0044 

NERR4S 
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STORAGE ASSIGNMENT FOR VARIABLES (BLOCKt TYPE, RELATIVE LOCATION, NAME) 


0010 

R 

000000 

A 

0010 

R 

000153 

AA 

0010 

R 

002113 

ALPHA 

0010 

R 

002117 

ARATIO 

0 002 

L 

000016 

ASGIOO 

0010 

R 

002127 

AUXE 

0002 

R 

000047 

A5HAX 

0002 

R 

000050 

A6MAX 

0002 

R 

000032 

BOLTZ 

0 002 

R 

000034 

BOUND 

0010 

R 

002076 

BSl 

0010 

R 

002077 

BS2 

0002 

R 

000060 

CARNOT 

0002 

R 

000111 

CINV 

0002 

R 

000112 

C INVS 

0001 


003737 

CKNCPT 

0001 


005123 

CKOPT 

0012 

I 

000000 

CSF8 

0002 

R 

000064 

CYCE 

0010 

R 

002125 

CYCECT 

0010 

R 

002103 

Cl 

0002 

R 

000103 

CIMAX 

0010 

R 

002104 

CIS 

0002 

R 

000105 

CISMAX 

0010 

R 

002105 

C2 

0002 

R 

000110 

C2H0LD 

0002 

R 

000107 

C2HAX 

0002 

R 

000106 

DELT 

0002 

R 

000077 

DELTSQ 

0010 

R 

002121 

DTRE 

0002 

R 

000100 

DUMMY 

0010 

R 

001447 

EFF 

0010 

R 

002124 

ENEFCT 

0002 

R 

000063 

ENGE 

0010 

R 

002114 

EPS 

0010 

R 

002106 

F 

0010 

R 

001607 

FRAY 

0002 

1 

000020 

F$ 1 

0002 

I 

000021 

FI 2 

0 002 

I 

000022 

FI 3 

0002 

I 

000023 

FS 4 

0002 

I 

000024 

F$ 5 

0002 

I 

000025 

F$ 6 

0002 

I 

000026 

FI 7 

0 002 

I 

000027 

FI 8 

0002 

I 

000072 

F$ 12 

0002 

I 

000073 

F$ 13 

0010 

R 

002130 

GEARE 

0010 

R 

002131 

GENE 

0010 

R 

002116 

HC 

0010 

R 

002120 

HK 

0002 

I 

000075 

I 

0002 

L 

000003 

ICYCEF 

0002 

I 

000067 

IDUMM 

0 002 

L 

000002 

lENGEF 

0010 

I 

001531 

INREAO 

0010 

R 

002073 

INS 

0002 

L 

000001 

IPCSEF 

0002 

L 

000071 

IRFLG 

0 002 

I 

000070 

I STAT 

0002 

I 

000054 

ITRC 

0002 

I 

000037 

ITRCl 

0002 

I 

000040 

ITRC2 

0002 

I 

000041 

ITRC3 

0 002 

I 

000065 

1 1 

0002 

I 

000036 

J 

0002 

I 

000045 

JJ 

0002 

I 

000044 

K 

0002 

I 

000066 

L 

0 002 

I 

000035 

M 

0002 

L 

000007 

MAXC 

0002 

L 

000010 

MAXPHI 

0002 

L 

000011 

MAXSEC 

0010 

R 

002126 

MECHE 

0 002 

I 

000043 

MNT 

0002 

L 

000014 

MORDEC 

0002 

I 

000033 

NSET 

0002 

I 

000053 

NTCNT 

0002 

I 

000042 

NTRC 

0 002 

L 

000004 

NUTORF 

0010 

R 

001055 

CPTAA 

0001 


005661 

OPTAP 

0002 

L 

000005 

OPTMZE 

0002 

L 

000006 

PARAB 

0 010 

R 

002123 

PCEFCT 

0010 

R 

002100 

PHIl 

0002 

R 

000102 

PHIIFC 

0010 

R 

002101 

PHIIS 

0002 

R 

000104 

PHIISF 

0 010 

R 

002102 

PH 12 

0002 

R 

000030 

PI 

0010 

R 

002132 

PPE 

0002 

R 

000031 

P4 

0010 

R 

002074 

RHOl 

0 010 

R 

002075 

RHC2 

0010 

R 

002107 

RMA 

0002 

R 

000076 

RMAR 

0010 

R 

001741 

RMARAY 

0002 

L 

000000 

SECONC 

0002 

R 

000101 

S I G2 OF 

0010 

R 

002110 

SLOPER 

0010 

R 

002112 

SOLSD 

0010 

R 

002111 

SPECUL 

0002 

L 

000013 

SUP2 

0 010 

R 

002115 

TAC 

0002 

R 

000046 

TAK 

0002 

R 

000056 

TIK 

0010 

R 

002122 

TOC 

0002 

R 

000057 

TDK 

0002 

R 

000055 

TRK 

0002 

R 

000051 

TRMA 

0002 

R 

000052 

TRMAS 

0002 

R 

000061 

TRMB 

0002 

R 

000062 

TRMC 

0 010 

R 

000007 

TT 

0002 

R 

000074 

VF 

0002 

L 

000015 

XFLAG 

0002 

L 

000012 

XTRACT 

0002 

L 

000017 

XTRON 

0010 

R 

001547 

Y 

0010 

R 

002073 

Z 

0001 


001553 

lOOlI 

0001 


003346 

100202 

0001 


001553 

100640 

0 001 


001576 

1012G 

0001 


001651 

10221 

0001 


001703 

10241 

0001 


001703 

10241 

0001 


001726 

1035G 

0 001 


001744 

1041G 

0001 


001762 

1045G 

0001 


002000 

10461 

0004 


001161 

105F 

0001 


002017 

1055G 

0 001 


002035 

1061G 

0001 


002053 

1065G 

0 001 


002070 

10661 

000 1 


002111 

1076G 

0004 


000222 

IlOF 

0 001 


002127 

1 102G 

cool 


002145 

1106G 

0001 


002162 

11071 

0001 


002303 

11311 

0001 


002302 

11311 

0001 


002367 

11451 

0001 


002367 

11451 

0001 


002370 

11451 

0001 


002367 

11451 

0001 


002406 

1157G 

0 001 


002424 

1 163G 

0001 


002442 

11641 

0001 


002456 

1173G 

0001 


002474 

1177G 

0001 


002511 

12001 

0001 


002527 

12106 

0001 


002545 

1214G 

0001 


002562 

12151 

0001 


002562 

12151 

0001 


002567 

12151 

0001 


002577 

1225G 

0001 


002635 

12341 

0001 


002651 

12361 

0001 


002651 

12361 

0001 


002674 

1247G 

0001 


002712 

1253G 

0001 


002730 

1257G 

0001 


002746 

12601 

0001 


002765 

1267G 

0001 


003003 

1273G 

0 001 


003021 

1277G 

0001 


003036 

13001 

0001 


003057 

1310G 

0001 


003075 

1314G 

0001 


003113 

1320G 

C 001 


003131 

13211 

0001 


003130 

13211 

0001 


003147 

1332G 

0001 


003165 

1336G 

0001 


003203 

13371 

0 001 


003217 

1 346G 

0001 


003235 

13526 

0001 


003252 

13531 

0001 


003270 

1363G 

0001 


003306 

1367G 

0 001 


003326 

1 370 I 

0001 


003323 

13701 

0001 


003323 

13701 

0001 


003331 

1402G 

0001 


003410 

15041 

0 001 


003417 

1514G 

0001 


003466 

15361 

0001 


003470 

1541G 

0001 


003510 

1544G 

0001 


003601 

15751 

0 001 


003616 

16 06G 

0001 


003646 

16231 

0001 


003653 

16271 

000 1 


003654 

16311 

0001 


003762 

17221 

0 001 


004012 

1733 1 

0001 


004027 

17471 

0001 


004037 

17551 

0001 


004045 

17571 

0001 


004045 

17571 

0 001 


004077 

1771 1 

0001 


004133 

20061 

0001 


001555 

200640 

0001 


004205 

20141 

0001 


003533 

201514 

0 001 


000200 

2 02G 

0001 


004262 

20241 

0001 


004271 

20331 

0001 


004274 

20351 

0001 


004273 

20351 

0 001 


004306 

2044G 

0004 


001163 

205F 

0001 


004323 

20511 

0001 


004341 

20541 

0001 


004355 

20571 

0 001 


004356 

2 0571 

0001 


004355 

20571 

0001 


004400 

20651 

0001 


004407 

20671 

0001 


004407 

20671 

0 001 


000210 

2 07G 

0001 


004442 

21011 

0001 


004562 

21051 

0001 


004606 

21071 

0004 


001142 

211F 

0 001 


004624 

21131 

0001 


004640 

21171 

0004 


001145 

212F 

0001 


004642 

21211 

0001 


004654 

21261 

0 001 


004672 

21341 

0001 


004672 

21341 

0001 


004672 

21341 

0001 


004712 

21431 

0001 


004726 

21471 

0 004 


000223 

215F 

0001 


004730 

21511 

0001 


004742 

21561 

0001 


004760 

21641 

0001 


004760 

21641 

0 001 


004760 

2164 1 

0001 


005001 

21771 

0004 


000652 

220F 

0004 


000676 

221F 

0001 


005030 

22151 

0004 


000707 

2 22F 

0001 


005063 

22221 

0001 


005107 

22261 

0004 


000736 

223F 

0001 


005121 

22341 

0 001 


005121 

2 234 1 

0001 


005121 

22341 

0004 


000755 

225F 

0004 


000772 

226F 

0001 


005144 

22601 

0 004 


000775 

2 27F 

0001 


005201 

22741 

0004 


001012 

228F 

0004 


001112 

230F 

0001 


005213 

2302G 

0 001 


005230 

23071 

0001 


005246 

23121 

0001 


005262 

23151 

000 1 


005263 

23151 

0001 


005262 

23151 

0 001 


005300 

23261 

0001 


005322 

23331 

0001 


005331 

23351 

000 1 


005331 

23351 

0001 


005331 

23351 

0 004 


001127 

2 35F 



0001 

005401 

23501 

0001 

005521 

23541 

0001 

005545 

23561 

0001 

005570 

23711 

0 001 

005617 

24071 

0001 

005643 

24161 

0001 

005657 

24261 

0001 

005657 

24261 

0001 

005657 

24261 

0 001 

005676 

2442 I 

0001 

006030 

24571 

0001 

000265 

2461 

0001 

006051 

24631 

0001 

006063 

24711 

0001 

006063 

2471 1 

0001 

006113 

24761 

0001 

006124 

25001 

0001 

000301 

2631 

0004 

000350 

270F 

0004 

000403 

2 7 IF 

0004 

000417 

272F 

0004 

000457 

273F 

0004 

000567 

275F 

0004 

000610 

276F 

0004 

000613 

277F 

0004 

000634' 

27SF 

0004 

001073 

280F 

0004 

001121 

285F 

0004 

000507 

290F 

0004 

000517 

291F 

0004 

000525 

292F 

0004 

000534 

293F 

0004 

001077 

294F 

0004 

000542 

295F 

0004 

000547 

2 96F 

0004 

000554 

297F 

0004 

000562 

298F 

0004 

001104 

299F 

0001 

000331 

3111 

0001 

000336 

3211 

0001 

000343 

3301 

0001 

000345 

3361 

0001 

000345 

3361 

0001 

000357 

344G 

0001 

000372 

3531 

0001 

000372 

3531 

0001 

000402 

3631 

0001 

000407 

3661 

0001 

000415 

3741 

0001 

000424 

4051- 

0001 

000432 

4111 

0001 

000435 

4131 

0001 

000477 

4251 

0001 

000504 

4321 

0 001 

0 0 0565 

4721 

0001 

001553 

SOL 

0001 

000611 

5071 

0001 

000611 

5071 

0001 

000612 

5071 

0001 

000637 

5261 

0001 

000636 

5261 

0001 

000666 

5451 

0001 

000712 

5621 

0001 

000712 

5621 

0001 

000723 

5 75G 

0001 

003326 

60L 

0001 

000736 

603G 

0001 

000737 

6066 

0001 

000747 

614G 

0001 

0 0 075 7 

622G 

0001 

001010 

640G 

0001 

001035 

6561 

0001 

001121 

6671 

0001 

001204 

6741 

0001 

003656 

70L 

0001 

001241 

7101 

0001 

001240 

7101 

0001 

001256 

7141 

0004 

001107 

730F 

0 001 

001300 

7301 

0001 

001301 

7301 

0001 

001311 

7341 

0004 

001124 

735F 

0001 

003660 

75L 

0 001 

001334 

7501 

0001 

001333 

7501 

0001 

001337 

7531 

0601 

001343 

7551 

0001 

001343 

7551 

0 001 

001354 

7571 

0001 

001354 

7571 

0001 

001467 

771G 

0001 

001505 

7731 

0004 

001066 

780F 

0 004 

001115 

7 85F 

0001 

0001 

003350 

003705 

SOL 

97L 

0001 

003352 

90L 

0001 

003361 

92L 

0001 

003667 

95L 

0001 

003676 

96L 



00003 


a 

I 


00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

COlOl 

00101 

00101 

00101 

00101 

COlOl 

00101 

00101 

00101 

00101 

00101 

COlOl 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 


1 * 

z* 

3* 

4* 

5* 

6 » 

7* 

8 * 

9* 

10 * 

11 * 

12 * 

13* 

14* 

15* 

16* 

17* 

18* 

19* 

20 * 

21 * 

22 * 

23* 

24* 

25* 

26* 

27* 

28* 

29* 

30* 

31* 

32* 

33* 

34* 

35* 

36* 

37* 

38* 

39* 

40* 


C****** ****** 

CONC/11 

C CALCULATES PERFORMANCE OF SOLAR THERMAL CONCENTRATOR* COLLECTOR* OR 
C POk'ER SYSTEM. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


************ 

CALCULATES COLLECTOR EFFICIENCY AS 
A(l)=( INS*RH01*BS1*PHI*ALPHA-(1/C1) <EPS*BOLTZ*(TRK**4-TAK**4) 
♦HC*(TRK-TAK))-ARATI0*HK*(TRK-TAK))/INS 
WHERE QUANTITIES ARE DEFINED IN BLOCK 1.. 

CALCULATES SYSTEM EFFICIENCY AS 
A(5)=A<1)*PCSE*PPE 

WHERE POWER CONVERSION EFFICIENCY PCSE OR A<4) IS GIVEN BY 
PCSE=PCSEFF (TEMPERATURE) 

OR PCSE=PCEFCT*(TIK-TOK)/TIK 
OR PCSE=ENGE*GEARE*GENE 
AND ENGE=ENGEFF(TEMPERATURE) 

OR ENGE=ENEFCT*(TIK-TOK)/TIK 
OR ENGE=CYCE*MECHE*AUXE 
AND CYCE=CYCEFF(TEMPERATURE) 

OR CYCE=CYCECT*(TIK-TOK)/TIK 

PCSEFF(TEMPERATURE), ENGEFF ( TEMPER A TURE ) * CYCEFF ( TEMPER A TURE ) * ARE 
RESPECTIVELY THE POWER CONVERSION, ENGINE* AND CYCLE EFFICIENCIES 
AS FUNCTIONS OF TEMPERATURE, TIK AND TOK ARE THE INPUT AND OUTPUT 
TEMPERATURES (KELVIN), AND THE OTHER QUANTITIES ARE DEFINED IN 
BLOCK 1. 

CALCULATES PERFORMANCE FOR AS MANY RECEIVER TEMPERATURES AS DESIRED 
AND INDICATES WHICH TEMPERATURE GIVES MAXIMUM SYSTEM EFFICIENCY. 

IF DESIRED WILL ALSO OPTIMIZE RECEIVER APERTURE AREA. 

THIS OPTIMIZATION IS DESCRIBED IN SUBROUTINE OPT BELOW. 

CAN HANDLE COMPOUND CONCENTRATORS (PRIMARY PLUS SECONDARY). 

PROVIDES MANY OPTIONAL FORMS OF INPUT* WITH DEFAULT VALUES. 

ALL INPUT IS PROMPTED AND IS ECHOED TO OUTPUT. 


a 

I 


00101 

41* 

C 




00101 

42* 

C 

PROVIDES CERTAIN CHECKS OF THEORETICAL POSSIBILITY OF SPECIFIED 


00101 

43* 

C 

OPTICAL AND ENGINE PERFORMANCE. 


00101 

44* 

C 




00101 

45* 

C 

ASSUMES OVERALL CONTOUR OF PRIMARY CONCENTRATOR IS EITHER AN 


00101 

46* 

C 

APPROXIMATELY PARABOLOIDAL MIRROR OR AN APPfiOXIMATEL Y PLANAR MIRROR 

00101 

47* 

C 

OR 

: LENS. 


00101 

48* 

C 




00101 

49* 

C 

********************************************************************** 

00101 

50* 

C 

******************************************************************** 

r** 

00101 

51* 

C 

* -* 

UHEN PROMPTED FOR INPUT. ENTER VALUES OF INPUT VARIABLES AS 

« * 

00101 

52* 

C 

* * 

NAMELIST (REAL) WITH NAME "NLIST". 

kk 

00101 

53* 

C 

* * 

(IF NOT FAMILIAR WITH NAMELIST INPUT, SEE FORTRAN MANUAL.) 

k k 

00101 

54* 

C 

* * 

FOR FIRST SET OF INPUTS, PROGRAM WILL USE VALUES GIVEN IN 

k k 

00101 

55* 

C 

* * 

BLOCK 1 AS DEFAULTS. FOR SUBSEQUENT SETS OF INPUTS, IT WILL 

k k 

00101 

56* 

C 

* * 

USE VALUES FROM PRECEDING SET AS DEFAULTS (EXCEPT NUTORF). 

k k 

00101 

57* 

C 

* * 


kk 

00101 

58* 

C 

* * 

THEN, WHEN PROMPTED, ENTER RECEIVER TEMPERATURES IN CELSIUS AS 

k k 

00101 

59* 

C 

* * 

DO-LOOF parameters: min, max, and increment (INTEGER). 

k * 

00101 

60* 

C 

* * 

FOR FIRST DATA SET THESE MUST BE INPUT (NO DEFAULT). FOR 

** 

00101 

61* 

C 

* * 

SUBSEQUENT DATA SETS, TEMPERATURES FROM PRECEDING SET ARE 

★ * 

00101 

62* 

C 

* * 

DEFAULT. 

** 

00101 

63* 

C 

* * 


* * 

00101 

64* 

C 

* « 


*■* 

00101 

65* 

C 

* * 

IF WANT TO ENTER A TABLE OF EFFICIENCIES PERTAINING TO POWER 

* * 

00101 

66* 

c 

* « 

CONVERSION, SET IPCSEF, lENGEF, OR ICYCEF=T WHEN INPUTTING 

* * 

00101 

67* 

c 

** 

NAMELIST. THEN, WHEN PROMPTED, ENTER EFFICIENCIES AS FREE-FIELD 

* * 

00101 

68* 

c 

* * 

LIST (REAL), ONE PER RECEIVER TEMPERATURE. 

** 

00101 

69* 

c 

• * 

IF WANT RECEIVER APERTURE OPTIMIZATION, SET OPTM2E=T WITH 

** 

COlOl 

70* 

c 

* * 

NAMELIST. 

* * 

GOlOl 

71* 

c 

* * 

FOR OTHER OPTIONS, SEE LIST OF LOGICAL VARIABLES IN BLOCK 1. 

k k 

00101 

72* 

c 

* * 


kk 

00101 

73* 

c 

■k ■* 

RE-ENTER NEW SETS OF DATA FOR INPUT VARIABLES AS DESIRED. 

k k 

00101 

74* 

c 

* * 


k k 

00101 

75* 

c 

* * 

IF, AFTER FIRST DATA SET HAS BEEN PROCESSED, WANT TO ENTER NEW 

k k 

00101 

76* 

c 

* * 

RECEIVER TEMPERATURES OR NEW EFFICIENCIES PERTAINING TO POWER 

k k 

00101 

77* 

c 

k * 

CONVERSION, MUST RESET NWTORF=T WHEN ENTERING NAMELIST. 

kk 

00101 

78* 

c 

* * 


k k 

00101 

79* 

c 

* ■* 

USE ASCII PRINTER TO ASSURE PROPER TABLE HEADINGS. 

k k 

00101 

80* 

c 

* * 


kk 

00101 

81* 

c 

* * 

IF recompile: 

kk 

00101 

82* 

c 

* * 

USE ATHENA FORTRAN COMPILER OTFOR). 

k k 

00101 

83* 

c 

* * 

WITH 3MAP USE THE STATEMENTS: 

k k 

00101 

84* 

c 

* * 

LIB LIB*JPL$ 

kk 

00101 

85* 

c 

* * 

LIB LIB*CLIB* 

kk 

00101 

86* 

c 

* « 

TO INCLUDE PROPER ROUTINES. 

kk 

00101 

87* 

c 

********************************************************************** 

OClOl 

88* 

c 

****«**«**♦««****««*«***««**«*****«******«*******«**********««******«* 

00101 

89* 

c 




00101 

90* 

c 




00101 

91* 

c 




00101 

92* 

c 


***k*k****1t 

k 

00101 

93* 

c 


*********** 

k 

00101 

94* 

c 

BLOCK 0. DEFINE STORAGE. 


00101 

95* 



COMPILER (DATA=IBM) 


00103 

96* 



PARAMETER NT=50 3MAX NO. OF TEMPERATURES 


COIOS 

97* 



MONITOR 



00107 

98* 


REAL INS.fECHE 


00110 

99* 


INTEGER CSF8 


00111 

100* 


LOGICAL SECONC 

,IPCSEF,IENGEF,ICYCEF,NWTORF,CPTMZE,PARAB, 

00111 

101* 


& MAXC*HAXPHI» 


00111 

102* 


& HAXSECtXTRACT 

,SUP2,nORDEC,XFLAG, ASG100,XTR0N 

00112 

103* 


DIMENSION A(7) 

,TT(2,NT),AA(9,NT) ,0PTAA(5,NT) ,EFF (NT ) , INRE AD ( 1 4 ) , 

00112 

104* 


& Y<32),Z(32) 


C 0 1 1 3 

105* 


EQUIVALENCE (INS,Z(1) ),(RH01,Z(2) ) , ( RH02 * Z < 3 ) ) * ( BS 1 * Z ( 4 ) ) t 

00113 

106* 


& (BS2iZ(5)),(PHIl,Z(6)),(PHIlS,Z<7))t<PHI2,Z(8)),(Cl,Z(9)), 

00113 

107* 


& (ClStZ(10)),(C2«Z(ll)>« 

00113 

108* 


& (F(Z(12)>t(RMAiZ(13))t(SL0PER>Z(14))«(SPECUL>Z(lS>)t 

00113 

109* 


& (S0LSD«Z(16) ) 

, (ALPHA •Z(17)>,(EPS,2(18)),(TAC,Z(19>),(hC,Z(20)>, 

00113 

110* 


& (ARATI0,Z(21) ) * (HKtZ(22) ) » (DTRE*Z(23) ) ♦ 

00113 

111* 


& (T0C,Z(24)),(PCEFCT,Z(25))* 

00113 

112* 


& (ENEFCT,Z(26>) t(CYCECTfZ(27))*(HECHE,Z<28))*<AUXE,Z(29)). 

00113 

113* 


& (GEAREfZ(30)> 

,(GENE,Z(31)),(PPE,Z(32)> 

00114 

114* 


NAMELIST/NLIST/INS,RH01,RH02,BSltBS2*PHIl,PHIlS*PHI2*Cl*ClS«C2* 

00114 

115* 


& F,RMA,SLOPER, 

SPECUL, SOL SD, ALPHA, EPS, 

00114 

116* 


& TAC»HC,ARATIO 

,HK,DTRE,TOC,PCEFCT,ENEFCT,CYCECT,KECHE,AUXE, 

00114 

117* 


& GE ARE, GENE, PPE.OPTMZE.PARAB.MAXC,MAXPH I, SECONC, MAXSEC.IPCSEF, 

00114 

118* 


& lENGEFflCYCeF 

,NWTORF»XTRACT»SUP2»HORDEC 

00114 

119* 

C 



00114 

120* 

C 

* * * 

********* 

00114 

121* 

C 

* * * 

********* 

00114 

122* 

C 

ie ii h 

********* 

00114 

123* 

C 



00114 

124* 

C 

BLOCK 1. INITIALIZATION. 

00114 

125* 

C 

DEFAULT VALUES 

FOR INPUT OF SYSTEM CHARACTERISTICS. 

00115 

126* 


INS=800.0 

8INSOLATION, W/M**2 

OOllfc 

127* 


RH01=0.9 

3REFLECTANCE OR TRANSMITTANCE 

00117 

128* 



8 OF (PRIMARY) CONCENTRATOR. 

00117 

129* 


RH02=0.9 

aEFFECTIVE REFLECTANCE OR 

00120 

130* 



a TRANSMITTANCE OF SECONDARY 

00120 

131* 



a CONCENTRATOR, CONSIDERING 

00120 

132* 



a AVERAGE NUMBER OF REFLECTIONS 

00120 

133* 



a AT SECONDARY. (IGNORED IF NO 

00120 

134* 



a SECONDARY CONCENTRATOR.) 

00120 

135* 


PS1=1.C 

3BL0CKING AND SHADOWING FACTOR 

00121 

136* 



a (OF PRIMARY). 

00121 

137* 


BS2=1.0 

8BL0CKING AND SHADOWING FACTOR OF 

00122 

138* 



a SECONDARY. (IGNORED IF NO 

00122 

139* 



a SECONDARY.) 

00122 

140* 


PHI1=0.95 

aiNTERCEPT FACTOR, WITHOUT 

00123 

141* 



a SECONDARY, 

00123 

142* 



a (IGNORED IF OPTIMIZE RECEIVER 

00123 

143* 



a APERTURE.) 

00123 

144* 


PHI1S=0.0 

apRIMARY INTERCEPT FACTOR WITH 

00124 

145* 



a SECONDARY. (IGNORED IF NO 

00124 

146* 



a SECONDARY.) 

00124 

147* 



a PROGRAM SETS PHI1S=PHI1 IF 

00124 

148* 



a PHIIS.LE.0.0 

00124 

149* 



a (IGNORED IF OPTIMIZE RECEIVER 

00124 

150* 



a APERTURE.) 

00124 

151* 


PHI2=1.0 

aSECONOARY INTERCEPT FACTOR 

00125 

152* 


ClrlOOO. 0 

aGEOMETRIC CONCENTRATION RATIO 

00126 

153* 



a WITHOUT SECONDARY. 

00126 

154* 



a (IGNORED IF OPTIMIZE RECEIVER 


00021 

00023 

00025 

00027 

0D031 


00033 


00034 


00036 

00040 


12 




00126 

155* 


00126 

156* 


00127 

157* 


00127 

158* 


00127 

159* 


00127 

160* 


00130 

161* 


00130 

162* 


00130 

163* 


00130 

164* 


00131 

165* 


00131 

166* 


C0131 

167* 


00131 

168* 


00131 

169* 


00131 

170* 


00132 

171* 


00132 

172* 


00132 

173* 


00132 

174* 


00132 

175* 


00132 

176* 


00132 

177* 


00133 

178* 


00133 

179* 


00133 

180* 


00133 

181* 


00133 

182* 

1 

VO 

00133 

183* 

00134 

184* 


00134 

185* 


00134 

186* 


00135 

187* 


00135 

188* 


00135 

189* 


00136 

190* 


00137 

191* 


00140 

192* 


00141 

193* 


00141 

194* 


0 0141 

195* 


00142 

196* 


00142 

197* 


00143 

198* 


00143 

199* 


00143 

200* 


00144 

201* 


00144 

202* 


00145 

203* 


00145 

204* 


00146 

205* 


00146 

206* 


00146 

207* 


00146 

208* 


00146 

209* 


00146 

210* 


00146 

211* 


cis=:ooo.o 


C2=1.0 


F = 0.6 


RHA=0.0 


SLOPER=2.0 


SPECUL=0.5 


S0LSD=2.3 


ALPHA=1.0 

EPS=1.0 

TAC=20.0 

HC=0.0 


ARATIO=0.025 

HK=0.0 


DTRE=25.0 

TOC=50.0 



a APERTURE.) 

aPRIMART GEOMETRIC CO^^CENTRATIO^ 
a RATIO UITH SECONDARY, 
a (IGNORED IF OPTIMIZE RECEIVER 
a APERTURE.) 
aSECONDARY GEOMETRIC 
a CONCENTRATION RATIO, 
a (IGNORED IF MAXIMIZE SECONDARY 
a CONCENTRATION.) 
aFOCAL RATIO (OF PRIMARY). 

3 REQUIRED ONLY IF OPTIMIZE 
a RECEIVER APERTURE OR IF 
a MAXIMIZE INTERCEPT FACTOR OR 
a CONCENTRATION RATIO, AND 
a DO NOT SUPPLY RIM ANGLE. 
aRIM ANGLE OF (PRIMARY) 
a CONCENTRATOR, IN DEGREES, 
a REQUIRED ONLY IF OPTIMIZE 
a RECEIVER APERTURE OR IF 
a MAXIMIZE INTERCEPT FACTOR OR 
a CONCENTRATION RATIO, 
a (SUPPLY EITHER RMA OR F.) 
aSLOPE ERROR OF 

a (PRIMARY) REFLECTOR, IN MRAD. 
a FOR (PRIMARY) LENS SET ' 
a SLOPER=0.5» STD. DEV. OF 
a TRANSMITTED RAYS, 
a (REQUIRED ONLY IF OPTIMIZE.) 
aSPECULARITY SPREAD OF (PRIMARY) 
a CONCENTRATOR, IN MRAD. 
a (REQUIRED ONLY IF OPTIMIZE.) 
aSTD. DEV. OF ANGULAR SPREAD OF 
a INCOMING SUNLIGHT, IN MRAD. 
a (REQUIRED ONLY IF OPTIMIZE.) 
3RECEIVER EFFECTIVE ABSORPTIVITY 
3RECEIVER EFFECTIVE EHISSIVITY 
aAMBIENT TEMPERATURE, CELSIUS 
3EFFECT1VE CONVECTION COEFFICIENT 
a U/((M**2 OF RECEIVER APERTURE) 
a » DEG C) 

3RATI0, (RECEIVER CAVITY WALL 
a AREA) / (CONCENTRATOR AREA) 
3EFFECT1VE CONDUCTION COEFFICIENT 
a U/((M**2 OF RECEIVER WALL) 
a * DEG C) 

3TEMPERATURE DROP FROM RECEIVER 
a TO ENGINE, CELSIUS 
3TEMPERATURE OF HEAT 
a REJECTION, CELSIUS 
3P0UER CONVERSION EFFECTIVENESS 
a AS FRACTION OF CARNOT 
a EFFICIENCY. 

a (SUPPLY EITHER PCEFCT, ENEFCT, 

3 OR CYCECT, OR ELSE SET IPCSEF, 
a lENGEF, OR ICYCEF=T AND SUPPLY 
a LIST OF EFFICIENCIES). 

3ENGINE EFFECTIVENESS: FRACTION 


00042 

00044 

0004G 

00047 


00051 

00053 

00055 

00057 

OOOGl 

OOOG3 

000G4 

00066 

00067 

00071 

00073 

00075 


ENEFCT=0.0 



D-10 


C0147 

212* 



a OF CARNOT EFFICIENCY 

00076 

00147 

213* 


CYCECT=0.0 

acYCLE effectiveness: fraction of 


00150 

214* 



a CARNOT EFFICIENCY 

00077 

00150 

215* 


HECHE=0.0 

aHECHANICAL EFFICIENCY OF ENGINE 


00151 

216* 


AUXE=0.0 

aEFFICIENCY FACTOR TO ACCOUNT FOR 

00100 

00152 

217* 



a POWER USED BY AUXILIARIES 

00101 

00152 

218* 


GEARE=0.0 

3GEAR EFFICIENCY 


00153 

219* 


GENE=0.0 

aGENERATOR EFFICIENCY 

00102 

00154 

220* 


PPE=0.95 

aPOWER PROCESSING EFFICIENCY 

00103 

00154 

221* 

C 




00154 

222* 

C 

DEFAULT VALUES FOR OPTIONS 



00154 

223* 

C 




00155 

224* 


OPTMZEs. FALSE. 

a, TRUE. TO OPTIMIZE RECEIVER 

00105 

00156 

225* 



a APERTURE. 

00106 

00156 

226* 


PARAB=.TRUE. 

a OVERALL CONTOUR OF PRIMARY 


00157 

227* 



a APPROXIMATELY PARABOLOIDAL. 

00110 

00157 

228* 



a .FALSE. IF OVERALL CONTOUR 


00157 

229* 



a APPROXIMATELY PLANAR. 


00157 

230* 


HAXC=. FALSE. 

a. TRUE. TO MAXIMIZE PRIMARY 


00160 

231* 



a GEOMETRIC CONCENTRATION RATIO. 

00111 

00160 

232* 



a <00 NOT USE WITH OPTM.ZE OR 


00160 

233* 



a MAXPHI.) 


00160 

234* 


HAXPHI=. FALSE. 

a. TRUE. TO MAXIMIZE PRIMARY 


00161 

235* 



a INTERCEPT FACTOR. 

00112 

00161 

236* 



a <DO NOT USE WITH OPTMZE OR 


00161 

237* 



a MAXC.) 


00161 

238* 


SECONC=. FALSE. 

aSECONDARY CONCENTRATOR: .TRUE. TO 


00162 

239* 



a CALCULATE WITH SECONDARY 

00113 

00162 

240* 



a CONCENTRATOR AS WELL AS WITHOUT 


00162 

241* 


HAXSEC=. FALSE. 

a. TRUE. TO USE MAXIMUM POSSIBLE 


00163 

242* 



a SECONDARY CONCENTRATION. 

00114 

00163 

243* 


IPCSEF=. FALSE. 

a. TRUE. TO INPUT PCS EFFICIENCY 


00164 

244* 



a VS. TEMPERATURE 

00115 

00164 

245* 


IENGEF=. FALSE. 

8. TRUE. TO INPUT ENGINE 


00165 

246* 



a EFFICIENCY VS. TEMPERATURE. 

00116 

00165 

247* 


ICYCEFr. FALSE. 

a. TRUE. TO INPUT ENGINE CYCLE 


00166 

248* 



a EFFICIENCY VS. TEMPERATURE 

00117 

00166 

249* 



a (DO NOT SET MORE THAN ONE OF 


00166 

250* 



a THESE 3 EQUAL TO .TRUE. 


00166 

251* 



a IF NONE OF THESE ARE TRUE, 


00166 

252* 



a WILL USE PCS EFFECTIVENESS IF 


00166 

253* 



a IF NON-ZERO 


00166 

254* 



a OTHERWISE WILL USE ENGINE 


00166 

255* 



a EFFECTIVENESS IF NON-ZERO 


00166 

256* 



a OTHERWISE WILL USE CYCLE 


00166 

257* 



a EFFECTIVENESS.) 


00166 

258* 


NWTORF=.TRUE. 

aREAO IN NEW RECEIVER 


00167 

259* 



a TEMPERATURES OR NEW POWER 

00120 

00167 

260* 



a CONVERSION EFFICIENCIES. 


00167 

261* 



a (NWTORF = NEW TEMPERATURE OR 


00167 

262* 



a EFFICIENCIES). 


00167 

263* 



a WARNING! NWTORF IS SET FALSE 


00167 

264* 



a AFTER ANY OUTPUT. MUST BE RESET 


00167 

265* 



a .TRUE. IF WISH TO INPUT NEW 


00167 

266* 



a RECEIVER TEMPERATURES OR NEW 


00167 

267* 



a LIST OF POWER CONVERSION, 


00167 

268* 



3 ENGINE, OR CYCLE EFFICIENCIES. 




00167 

269* 


XTRACT=. FALSE. 

00170 

270* 



00170 

271* 



00170 

272* 



00170 

273* 



00170 

274* 



00170 

275* 



00170 

276* 



00170 

277* 



00170 

278* 


SUP2=. FALSE. 

00171 

279* 



00171 

280* 



00171 

281* 



00171 

282* 



00171 

283* 



00171 

284* 



00171 

285* 


MORDECr. FALSE. 

00172 

286* 



00172 

287* 



00172 

288* 

C 


00172 

289* 

C 

OTHER INITIALIZATION 

00172 

290* 

C 


00172 

291* 


PI=3. 141592 

00173 

292* 



00173 

293* 



00173 

294* 



00173 

295* 


P4=PI/4.0 

00174 

296* 


BOLTZ=5.67032E-8 

00175 

297* 


NSET=0 

00176 

298* 


BOUND=1.0E-7 

00177 

299* 



00177 

300* 



00177 

301* 


ASG100=. FALSE. 

00200 

302* 



00200 

303* 



00200 

304* 



G0200 

305* 



00200 

306* 


XTRONr. FALSE. 

00201 

307* 



00201 

308* 

C 


00201 

309* 

C 

****** 

00201 

310* 

C 

****** 

00201 

311* 

C 

****** 

00201 

312* 

C 


00201 

313* 

C 

BLOCK 2. 

00201 

314* 

C 

LOOP TO INPUT 1 DATA SET* PROCESS 

00201 

315* 

C 

FOR THIS DATA SET. 

00201 

316* 

C 


00201 

317* 


DO M=l*1000 

00204 

318* 


NSET=NSET+1 

00205 

319* 



00205 

320* 

C 


00205 

321* 

C 

****** 

00205 

322* 

C 

****** 

00205 

323* 

C 

BLOCK 2.1. 

00205 

324* 

C 

READ 1 SET OF INPUT DATA 


aPROVICES EXTRACT OF OUTPUT* IN 

a FILE XTRACT. 00121 

a EXTRACT CONSISTS OF SET NO., 
a ECHO OF NAMELIST AND RECEIVER 
a TEMPERATURE INPUT* PLUS OUTPUT 
a FOR LOWEST AND HIGHEST 
a TEMPERATURES AND FOR 

a temperature at which system 
a efficiency is highest. 

a. TRUE. TO SUPPRESS SECOND LINE 

a OF OUTPUT (C2* OVERALL 00122 

a CONCENTRATION RATIO* OVERALL 

a INTERCEPT FACTOR)* WHICH 

a OTHERWISE IS PRINTED WHEN 

a OPTIMIZE WITH SECONDARY 

a CONCENTRATOR. 

a. TRUE. TO PRINT MORE DECIMAL 

a PLACES ON EFFICIENCIES. 00123 

a (5 PLACES INSTEAD OF 3) 


aTRUNCATED TO AVOID ROUND-OFF 

a ABOVE EXACT VALUE AND 00125 

a CONSEQUENT WRONG QUADRANT 
a IN RMA-RMAR CONVERSION. 

aBOLTZMANN CONSTANT* W/M2KA 00127 

aNO. OF DATA SETS ENTERED. 00131 

3B0UND FOR EQUALITY COMPARISONS 00132 

a OF REAL NUMBERS AND TO PREVENT 0013A 

a DIVIDE BY ZERO. 
aFLAG TO INDICATE ASSIGNMENT OF 

3 EXTRACT FILE XTRACT* WHICH IS 00135 

a NAMED FILE 100 INTERNALLY 

a IN FORTRAN. (NOT USED UNLESS 

a XTRACT=.TRUE. ) 

aFLAG TO INDICATE IF XTRACT HAS 

3 JUST BEEN .TRUE. 00136 


****** 

****** 

****** 


DATA* AND OUTPUT RESULTS 
aREPEAT UNTIL READ 3E0F 

< + 


aSERIAL NO. OF SET OF INPUT 
a VALUES. 


00202 

00205 



D-12 


00205 

325* 

00205 

326* 

00205 

327* 

00205 

328* 

00206 

329* 

00211 

330* 

00212 

331* 

00212 

332* 

00212 

333* 

00212 

334* 

00212 

335* 

00212 

336* 

00212 

337* 

00212 

338* 

00214 

339* 

00216 

340* 

00216 

341* 

00216 

342* 

00216 

343* 

00216 

344* 

00216 

345* 

00216 

346* 

00216 

347* 

00216 

348* 

00225 

349* 

00225 

350* 

00233 

351* 

00233 

352* 

00233 

353* 

00233 

354* 

00241 

355* 

00250 

356* 

00252 

357* 

00256 

358* 

00263 

359* 

00264 

360* 

00265 

361* 

00266 

362* 

00270 

363* 

00270 

364* 

00270 

365* 

00271 

366* 

00273 

367* 

00274 

368* 

00274 

369* 

00301 

370* 

00306 

371* 

00306 

372* 

00313 

373* 


(EXCEPT RECEIVER TEMPERATURES AND ARRAY OF EFFICIENCIES FOR 
POWER CONVERSION). 


CALL NAMLRO 
DO J=l»32 

Y(J)=2< J) 
ENOLOOP 


aPROVIDE NAMELIST INPUT 
8SAVES INPUT VALUES 


aENDLOOP J 


BLOCK 2.2. 

READ RECEIVER TEMPERATURES AND POWER CONVERSION. ENGINE. OR 
CYCLE EFFICIENCY ARRAY. IF DESIRED. 


IF (NWTORF) THEN 

ERPRINT .'ENTER RECEIVER TEMPERATURES (Ml. M2. M3 


INTEGER) • 


***.************************.***************«*«**************««*«***** 
• • ** 

** INPUT NEW RECEIVER TEMPERATURES. ** 

** ** 

*******************************.***.***.********.********.************ 
********************************************************************** 

READ (5.110.ERR=90.END=80) I TRC 1 . I TRC2. I TRC3 aiNPUT RECEIVER 

a TEMPERATURES, CELSIUS, IN FORM 
a OF DO LIST PARAMETERS (FROM 
a ITRC TO ITRC2 BY ITRC3) 

WRITE (6.215) ITRC1.ITRC2.ITRC3 

IF (XTRACT) WRITE (100,215) I TRCl, ITRC2, ITRC3 

IF (ITRC3.LE.0) THEN 


WRITE (6.NLIST) 

ERPRINT , 'BAD ITRC3' 

STOP BDREAD 

ENDIF SENDIF ITRC3 

NTFC=1*( ITRC2-ITRCD/ITRC3 8N0. OF TEMPERATURES 
IF (IPCSEF.OR.IENGEF.OR.ICYCEF) THEN awiLL READ EFFICIENCIES 

a OF POWER CONVERSION, ENGINE, 

8 OR CYCLE. 

MNT=NTRC 

IF (NTRC.GT.NT) THEN 

MNT=NT 8T0 PREVENT ARRAY OVERFLOW 

ERPRINT ,' * » warning: INPUT LIST OF EFFICIENCIES IS 

8T00 LONG FOR ARRAY SIZE ALLOCATED. * *' 

ERPRINTO.'ENO of output may be ERRONEOUS.' 

ERPRINTO, 'USE SHORTER LIST OR RECOMPILE WITH LARGER VALUE 
&0F PARAMETER NT' 

ENDIF aENOIF NTRC 


< 


00211 


00226 


00230 


00232 

00244 


00254 

00266 

00272 

00276 

00300 

00302 


< 


♦ 


00310 

00315 


00317 

00322 

00324 

00326 

00330 

00332 
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0031A 374* 


IF (IPCSEF) THEN 


00316 375* ERPRINT , ‘ENTER PCS EFFICIENCIES (FREE-FIELD, READ* 

00323 376* ELSEIF (IEN6EF) 

00325 377* ERPRINT I'ENTER ENGINE EFFICIENCIES IFREE-FIELD, READ* 

00332 378* ELSE 

00333 379* ERPRINT «'ENTER CYCLE EFFICIENCIES (FREE-FIELD. READ* 

00340 380* ENOIF 8ENDIF IPCSEF 

00340 381* C 

00340 382* C *************** ************************ ******************** ***** ****** 

00340 383* C ********************************************************************** 

00340 384* C ♦* •* 

00340 385* C ** INPUT TABLE OF EFFICIENCIES ** 

00340 386* C ** ** 

00340 387* C ********************************************************************** 

00340 388* C ********************************************************************** 

00340 389* C 


00334 

00337 

00341 

00344 

00346 


00341 

390* 


READ 

<5.110. ERR=92, ENO=80) (EFF(K), K=1.HNT) 


00350 

391* 


ERPRINT EFFICIENCIES ENTERED* 



00355 

392* 


ENOIF 

SENDIF 

IPCSEF*IENGEF, 

ICYCEF 

00356 

393* 


ENDIF 

SENOIF 

NUTORF 


00356 

394* 

C 





00356 

395* 

C 

* * 

***** 

♦ * * 

* 

00356 

396* 

C 

* * 

***** 

* * * 

* 

00356 

397* 

C 





00356 

398* 

C 

BLOCK 2.3. 




00356 

399* 

c 

CALCULATE 

CONCENTRATOR PERFORMANCE. 



00356 

400* 

c 





00356 

401* 

c 

* * 

***** 

* * * 

* 

00356 

402* 

c 

BLOCK 2 

.3.1 



00356 

403* 

c 

CLEAR 

INAPPLICABLE OUTPUT VALUES. 



00356 

404* 

c 

CHECK 

CONSISTENCY OF INSOLATION INPUT. 


00356 

405* 

c 






00371 

00373 


00357 

406* 

IF (IPCSEF. OR. lENGEF. OR. 

ICYCEF) THEN 

00361 

407* 

PCEFCT=0.0 

8T0 CLARIFY PRINTOUT 

00362 

408* 

ENEFCT=0.0 


00363 

409* 

CYCECT=0.0 


00364 

410* 

ENOIF 

SENOIF IPCSEF. lENGEF. ICYCEF 



00400 

00401 

00402 

00403 


00365 

411* 

IF (HK.LE. 0.0) 

ARATIO=0.0 

3T0 

CLARIFY 

PRINTOUT 

00367 

412* 

IF (.NOT.SECONC) 

THEN 




00371 

413* 

RH02=0.0 


STO 

CLARIFY 

PRINTOUT 

00372 

414* 

BS2 =0.0 





00373 

415* 

PHI2=0.0 





00374 

416* 

C2 =0.0 





00375 

417* 

ENDIF 


3EN0IF SECOND 



00410 

00412 

00413 

00414 

00415 

00416 


00376 

418* 

IF (INS .LE. 0.0) THEN 


00400 

419* 

ERPRINT ,'INS MUST BE 

POSITIVE.* 

00405 

420* 

CYCLE H 


00406 

421* 

ENOIF 

SENDIF INS 


00422 
00424 
0 0425 
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00406 

422* 

C 








00406 

423* 

C 


* 

* * * * 

* * * * * * 

* 



00406 

424* 

C 



BLOCK 2.3.2. 





00406 

425* 

c 



CALL APPROPRIATE ENTRY 

OF SUBROUTINE OPT TO CHECK CONSISTENCY 



00406 

426* 

c 



OF INPUTS AND TO PERFORH PRELIMINARY CALCULATIONS STATED 




00406 

427* 

c 



THERE. 





00406 

428* 

c 








00407 

429* 




IF (OPTMZE) THEN 













<-— ♦: 


00411 

430* 




CALL CKOPT ($60) 



• • 

00427 

00412 

431* 




ELSE 



• • 
• • 

00433 

00413 

432* 




CALL CKNOPT ($60) 





00414 

433* 




ENDIF 

BENDIF OPTMZE 



00436 

00414 

434* 

c 








00414 

435* 

c 

* 


***** 

* * * * * * 

* 



00414 

436* 

c 

* 


BLOCK 2.3.3. 


* 



00414 

437* 

c 

* 


WRITE INPUT VALUES TO 

OUTPUT. 

* 



C0414 

438* 

c 

* 


WRITE COLUMN HEADINGS 

FOR OUTPUT TABLE. 

* 



00414 

439* 

c 

* 


CLEAR ARRAYS FOR OUTPUT. 

* 



00414 

440* 

c 

* 


***** 

****** 

* 



00414 

441* 

c 








00415 

442* 




WRITE (6tNLIST) 

aOUTPUT THE PARAMETERS USED. 




00421 

443* 




IF ((NTRC*JJ*(2*NWTORF).GE 

. 5) 



00442 

00421 

444* 



& 

.OR. (NWTORF.AND. ( .NOT. ( IPCSEF .OR . IEN6EF . OR. ICYCEF ) ) ) 




00421 

445* 



& 

.0R.(SEC0NC.AN0.0PTMZE.AN0.(.N0T.SUP2))) THEN 




00423 

446* 





8START NEW PAGE IF WILL WRITE 


« « 

00472 

00423 

447* 




WRITE (6*'(1H1)*) 

a A LOT 




00427 

448* 




ELSE 

aELSE DOUBLE-SPACE 



00500 

00430 

449* 




WRITE (6«'(1H0)') 





00434 

450* 




ENDIF 

aENDIF NTRC 


• • 

00505 

00435 

451* 




IF (OPTMZE) THEN 

aWRITE COLUMN HEADS 




00437 

452* 





a WHEN OPTIMIZE OR MAXIMIZE. 


• • 

00507 

00437 

453* 




IF (SECONC) 





00440 

454* 




WRITE (6,270) 

aCOLUMN HEADS WITH 


• • • 

00511 

00443 

455* 




WRITE (6,271) 

a SECONDARY CONCENTRATOR 



00516 

00446 

456* 




WRITE (6,272) 




00523 

00451 

457* 




WRITE (6,273) 




00530 

00454 

458* 




IF (.NOT.SUP2) THEN 




00535 









< 


00456 

459* 




IF (MAXSEC) THEN 



• • • • 
• • • • 

00537 

00460 

460* 




WRITE (6,290) 

3SEC0ND LINE OF COLUMN HEADS 


* • • • • 
» • • • • 

00541 

00463 

461* 




WRITE (6,291) 



• • • • • 
« • • • • 

00546 

00466 

462* 




WRITE (6,292) 



• • • • • 
• • • • • 

00553 

00471 

463* 




WRITE (6,293) 




00560 

00474 

464* 




ELSE 




0 0566 

00475 

465* 




WRITE (6,295) 





00500 

466* 




WRITE (6,296) 




00573 

00503 

467* 




WRITE (6,297) 




00600 

00506 

468* 




WRITE (6,298) 



• • • « • 
V • • • • 

00605 

00511 

469* 




ENDIF 

8ENDIF MAXSEC 


» • • • • 
• • • • • 

00613 
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00512 

470« 


ENOIF 


aENOIF SUP2 





00513 

471* 


ELSE 







00514 

472* 


URITE (6*275) 


aURITE COLUMN HEADS IF NO 




• • ^ 

00517 

473* 


WRITE (6*276) 


a SECONDARY CONCENTRATOR 




:: 00620 

00522 

474* 


WRITE (6*277) 






:: 00625 

00525 

475* 


WRITE (6*278) 






:: 00632 

00530 

476* 


ENOIF 


aENOIF SECONC 




:: 00640 

00531 

477* 


ELSE 


aNO OPTIMIZE 



: : 

00532 

478* 


IF (SECONC) 






: : 








< 


00533 

479* 


WRITE (6*220) 


aURITE COLUMN HEADS IF 




:: 00642 

00536 

480* 


WRITE (6*221) 


a SECONDARY CONCENTRATOR 




:: 00647 

00541 

481* 


WRITE (6*222) 






:: 00654 

00544 

482* 


WRITE (6*223) 






:: 00661 

00547 

483* 


ELSE 






:: 00667 

00550 

484* 


WRITE (6*225) 


aURITE COLUMN HEADS IF NO 





00553 

485* 


WRITE (6*226) 


a SECONDARY CONCENTRATOR 




:: 00674 

00556 

486* 


WRITE (6*227) 






:: 00701 

00561 

487* 


URITE (6*228) 






:: 00706 

00564 

488* 


ENOIF 


aENOIF SECONC 




;; 00713 

0056S 

489* 


ENOIF 


aENOIF OPTMZE 



:: 

00566 

490* 


ERPRINT 1*' • 







00574 

491* 


00 J=l*7 






: 00715 








< 



00577 

492* 


A(vl)=0.0 






:: 00724 

00600 

493* 


ENOLOOP 


aENOLOOP J 




:: 00740 

00602 

494* 


00 K=1*NT 














< 

— 

t 

00605 

495* 


DO J=l*2 






: : 








< 


C0610 

496* 


TT(0*K)=0.0 






: ; 

00611 

497* 


ENOLOOP 


aENDLOOP J 




:: 00750 

00613 

498* 


00 J=l*5 













< 


00616 

499* 


OPTAA( J*K)=0.0 





: : : 

00617 

500* 


ENOLOOP 


8ENOLOOP U 



::: 00760 

00621 

501* 


00 J=l*9 













< 


00624 

502* 


AA(J*K)=0.0 





: : : 

00625 

503* 


ENOLOOP 


aENOLOOP J 



::: oo77o 

00627 

504* 


ENOLOOP 


aENDLOOP K 




00627 

505* 

C 








00627 

506* 

C 

* * * « * 

♦ 

« * * * ♦ 

* 




00627 

507* 

C 








00627 

508* 

C 

BLOCK 2.3.4. 







00627 

509* 

C 

CALCULATE SOLAR POWER 

REACHING RECEIVER PLANE* PER UNIT 





00627 

510* 

C 

CONCENTRATOR AREA. 










00631 

511* 


00631 

512* 


00632 

513* 


00633 

514* 


00634 

515* 


00635 

516* 


00636 

517* 


00636 

518* 


00636 

519* 


00636 

520* 


00636 

521* 


00636 

522* 


00636 

523* 


00636 

524* 


00637 

525* 


00637 

526* 


00637 

527* 


00637 

528* 


00637 

529* 


00637 

530* 


00637 

531* 


00642 

532* 


00643 

533* 


00645 

534* 


00646 

535* 

o 

00647 

536* 

1 

H 

00651 

537* 


00656 

538* 


00657 

539* 


00660 

540* 


00661 

541* 


00662 

542* 


C0663 

543* 


00664 

544* 


00665 

545* 


00665 

546* 


00665 

547* 


00665 

548* 


00665 

.549* 


00665 

550* 


00665 

551* 


00665 

552* 


00666 

553* 


00666 

554* 


00666 

555* 


00666 

556* 


00666 

557* 


00666 

558* 


00670 

559* 


00670 

560* 


00670 

561* 


00671 

562* 


00673 

563* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TAK=TAC+273.16 

A5MAX=1.0E-30 aiNITIALIZATION. SET .GT. 0.0 TO 

A6HAX=1.0E-30 3 PREVENT DIVISION BY ZERO 

TRMA=INS*RH01*BS1* ALPHA 
TRHAS=TRMA*RH02*BS2 

NTCNT=0 aCOUNT OF TEMPERATURES 

* * * * * * * * * * *.* 


BLOCK 2. A. 

LOOP TO HANDLE EFFICIENCY CALCULATIONS FOR 1 RECEIVER TEMPERATURE 
DO ITRC=ITRCl.ITRC2tITRC3 SRECEIVER TEMPERATURE 

* . * * * * * * * * * * * 


BLOCK 2.4.1. 

CALCULATE RECEIVER PERFORMANCE TERMS 


NTCNT=NTCNT+1 

IF (NTCNT.GT.NT) EXITLOOP ITRC 

TRK=ITRC+273.16 

TIKsTRK-DTRE 

IF (TIK.LE. 0.0) THEN 

ERPRINT t’ENGINE INLET TEMPERATURE BELOW ABSOLUTE ZERO.* 
CYCLE ITRC 

ENOIF 8ENDIF TRK 

T0K=T0C+273.16 

CARNOT=<TIK-TOK)/TIK 

TT(1,NTCNT)=ITRC 3RECEIVER TEMPERATURE. CELSIUS 

TT(2,NTCNT) = ( ITRC + 40. )»1.8-40. BRECEIVER FAHRENHEIT 

TRMB=EPS*B0LTZ*(TRK**4-TAK**4)+HC*(TRK-TAK) 

TRMC= ARATIO»HK*(TRK-TAK) 

******.******* 
BLOCK 2.4.2. 

IF OPTIMIZING RECEIVER APERTURE. CALL ENTRY OF SUBROUTINE OPT 
TO PERFORM THIS OPTIMIZATION. 

IF (OPTMZE) CALL OPTAP <$50) 

************** 
BLOCK 2.4.3. 

CALCULATE EFFICIENCIES. ENTER THEM IN OUTPUT ARRAY. 

A(1)=AMAX1(0.0.{TRMA*PHI1-TRMB/C1-TRMC)/INS) 

& aCOLLECTOR EFFICIENCY. 

& a WITHOUT SECONDARY 

IF (SECOND) THEN 

A(2)=AMAX1 (0.0, (TRHAS*PHI1S*PHI2-TRMB/(C1S»C2)-TRMC)/INS) 


00773 
00775 
0 0776 
01003 
01006 


01012 


< 


* 


01015 

01020 

01025 

01027 

01033 

01035 

01036 

01050 

01053 

01056 

01065 

01077 

01111 
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00673 

564* 

& 


aCOLLECTOR EFFICIENCY. 




00674 

565* 



3 WITH SECONDARY 



01171 

00674 

566* 


A(3)= A(2)-A(l) 

8C0LLECT0R EFFICIENCY 




00674 

567* 

& 


a INCREASE DUE TO SECONDARY 


• • 


00675 

568* 


ENOIF 

aENDIF SECONC 


• • 
• « 

01205 

00676 

569* 


IF (IPCSEF) THEN 





00700 

570* 


A(4)=EFF<NTCNT) 

aPOWER CONVERSION SUBSYSTEM 


• • 

01207 

00701 

571* 



3 EFFICIENCY USING PCSEFF. 


• • 
• • 

01224 

00701 

572* 


IF <A(4).GT. CARNOT) THEN 





00703 

573* 


ERPRINT ,'PCS EFFICIENCY 

GREATER THAN CARNOT.' 



01236 

00710 

574* 


CYCLE ITRC 




01240 

00711 

575* 


ENOIF 

aENOIF A(4) 



01242 

00712 

576* 


ELSEIF (PCEFCT.GT.0.0) 





00714 

577* 


A(4)=PCEFCT*CARNOT 

aPCS EFFICIENCY 



01246 

00715 

578* 



a USING PCEFCT OF CARNOT 



01257 

00715 

579* 


ELSE 

aUSING PCSE=ENGE*GEARE*GENE 




00716 

530* 


IF UENGEF) THEN 

aUSING ENGEFF(T) 




00720 

581* 


ENGE=EFF(NTCNT) 




01261 

00721 

582* 


IF (ENGE.GT. CARNOT) THEN 




01271 

00723 

583* 


ERPRINT ,'ENG EFFICIENCY GREATER THAN CARNOT.’ 



01276 

00730 

584* 


CYCLE ITRC 




01300 

00731 

585* 


ENOIF 

3ENDIF ENGE 



01302 

00732 

586* 


ELSEIF (ENEFCT.GT.0.0) 

aUSING ENGINE EFFICIENCY 




00734 

587* 



a ENEFCT OF CARNOT 



01306 

00734 

588* 


ENGE=ENEFCT*CARNOT 





00735 

589* 


ELSE 

aUSING ENGE=CYCE*HECHE*AUXE 



01312 

00736 

590* 


IF (ICYCEF) THEN 

aUSING CYCEFF(T) 




00740 

591* 


CYCE=EFF(NTCNT) 



• • • « 

01314 

00741 

592* 


IF (CYCE.GT. CARNOT) THEN 



01324 

00743 

593* 


ERPRINT , ‘CYCLE EFFICIENCY GREATER THAN CARNOT.' 



01331 

00750 

594* 


CYCLE ITRC 




01333 

00751 

595* 


ENOIF 

aENDIF CYCE 



01335 

00752 

596* 


ELSE 



• • • • 


00753 

597* 


CYCE=CYCECT*CARNOT 



• • • • 


00754 

598* 


ENOIF 

aENDIF ICYCEF 


• • • • 
• • • • 

01340 

00755 

599* 


ENGE=CYCE*HECHE*AUXE 



• • * 


00756 

600* 


ENOIF 

aENDIF lENGEF 



01344 

00757 

601* 


A(4)=ENGE*GEARE*GENE 





00760 

602* 


ENOIF 

aENDIF IPCSEF 



01355 

00761 

603* 


A(5)=A(1)*A(4)*PPE 

aSYSTEH EFFICIENCY 




00762 

604* 



a U/0 SECONDARY 



01400 

00762 

605* 


A5HAX=AHAX1<A5MAX»A(5) ) 




00763 

606* 


IF TSECONC) THEN 


< 


01405 


CJ 

M 

00 


00765 

607* 




A(6)=A(2)*A(4)*PPE 

aSYSTEM EFFICIENCY 

::: oi407 

00766 

608* 





aWITH SECONDARY 

::: 01432 

00766 

609* 




A6HAX=AMAX1( A6MAX»A(6) ) 



00767 

610* 




A{7)= A(6)-A(5) 

aSYSTEH EFFICIENCY INCREASE 

::: 01437 

00770 

611* 





a DUE TO SECONDARY 

::: • 0i46i 

00770 

612* 




DO J=l*7 










< 

00773 

613* 




AA( J*NTCNT)=A(J) 


01470 

00774 

614* 




ENDLOOP 

aENDLOOP J 

01506 

00776 

615* 




ELSE 

3NO SECONDARY CONCENTRATOR 


00777 

616* 




AA(ltNTCNT)=A(l) 


::: 01510 

01000 

617* 




AA(2fNTCNT)=A<4) 


::: oi524 

01001 

618* 




AA(3*NTCNT)=A(5) 


01540 

01002 

619* 




ENOIE 

aENDIF SECONC 

::: 01556 

01003 

620* 

50 



CONTINUE 

aERROR RETURN FOR 


01004 

621* 





a SUBROUTINE OPTAP 


01004 

622* 




ENDLOOP 

aENDLOOP ITRC 


01006 

623* 




NTCNT=M1N{NTCNT,NT) 



01006 

624* 

C 






01006 

625* 

C 

* 


***'**** 

******* 


01006 

626* 

C 

* 


******* 

******* 


01006 

627* 

C 

* 



* 


01006 

628* 

C 

* 


BLOCK 2.5. 

* 


01006 

629* 

C 

* 


WRITE OUTPUT FOR 1 SET OF DATA. 

* 


01006 

630* 

C 

* 



* 


01006 

631* 

C 

* 


******* 

* * * * * * * 


01006 

632* 

c 






01007 

633* 




IF (SECONC) THEN 


: 01564 

01011 

634* 




DO K=ltNTCNT 


:: 01571 

01014 

635* 




AA(8«K>=AA(5.K)/A5HAX 


::: 01600 

01015 

636* 




AA(9|K)=AA(6«K)/A6MAX 


::: 01615 

01016 

637* 




XFLAGr. FALSE. 

aFLAG, SET TRUE TO IDENTIFY THOSE 

::: oi632 

01017 

638* 





a LINES OF OUTPUT TABLE TO BE 

::: oi633 

01017 

639* 





a INCLUDED IN EXTRACT, IF EXTRACT 


01017 

640* 





a HAS BEEN REQUESTED. 


01017 

641* 




IF (XTRACT) THEN 










< : 

01021 

642* 




IF ( (K.EQ.l ) .OR. (K.EQ.NTCNT) ) XFLAG = .TRUE. 

:::: oi635 

01023 

643* 




IF ( (AA(8,K).GT.(1.0-BOUND)).OR.(AA{9,K).GT.(1.0-BOUND))) 

:::: 01652 

01023 

644* 



& 

XFLAG=.TRUE. 



01025 

645* 




ENDIF 

aENDIF XTRACT 

:::: 01704 

01026 

646* 




IF (0PTH2E) THEN 


• • • 

01030 

647* 




IF (HORDEC) THEN 


:::: 01706 








< ♦: : ; : 

01032 

648* 




WRITE (6,780) C(TT(J,K) 

,J=l,2),(0PTAA(J,K),d=l,4), 

::::: 01710 

01032 

649* 



& 

( AA(J,K> ,J=1,9> ) 



01051 

650* 




ELSE 


::::: 02001 

01052 

651* 




WRITE (6,280) ((TT(d,K) 

,J=1,2) , (OPTAA( J,K),J=1,4), 


01052 

652* 



& 

(AA(v),K),J = l,9)> 



01071 

653* 




ENDIF 

aENDIF MORDEC 

::::: 02071 
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01072 

654* 


IF (XFLAG) 



01072 

655* 

& 

bRITE (100«280) ( (TT ( JiK) 1 J=1 >2) , (OPTAA( JtK) t J=l«4> « 



01072 

656* 

& 

( AA( J«K) , J=lt9) ) 



01112 

657* 


IF (.NOT.SUP2) THEN 


02163 





< ♦; ;; 


01114 

658* 


IF (MAXSEC) THEN 

• • • • 

02165 

01116 

659* 


WRITE (6,294) 0PTAA(5,K), OPT A A ( 2 , K ) *OPT A A ( 5 , K ) , 


02167 

01116 

660* 

& 

OPTAA(4,K)*PHI2 



01124 

661* 


IF (XFLAG) WRITE (100,294) 0PTAA(5,K), 


02234 

01124 

662* 

& 

0PTAA(2,K)*0PTAA(5,K) , 0PTAA(4,K)*PHI2 



01133 

663* 


ELSE 


02304 

01134 

664* 


WRITE (6,299) OPT A A ( 2 , K ) *C2 , OPTAA ( 4 ,K ) *PH 1 2 



01141 

665* 


IF (XFLAG) WRITE (100,299) OPT A A ( 2 , K ) *C2 , 


02335 

01141 

666* 

& 

0PTAA(4,K)*PHI2 



01147 

667* 


ENDIF aENDIF MAXSEC 


02371 

01150 

668* 


ENDIF aENDIF SUP2 

• • • • 


01151 

669* 


ELSE 

• • • 
• • • 


01152 

670* 


IF (MORDEC) THEN 

• • • 
• • • 






< 4: ; ; 


01154 

671* 


WRITE (6,730) ( < TT ( J , K ) , J= 1 , 2 ) , ( AA ( J, K ) , J=l,9)) 

• • • • 

02373 

01167 

672* 


ELSE 

• • • • 
• • • • 

02443 

01170 

673* 


WRITE (6,230) ( ( TT( J , K ) , J=1 , 2 ) , ( AA ( J, K ) , J=l,9)) 

• • • • 
• • • • 


01203 

674* 


ENDIF aENDIF MORDEC 

• • • • 
• • • • 

02512 

01204 

675* 


IF (XFLAG) 

• • • 
• • • 


01204 

676* 

& 

WRITE (100,230) ( ( TT ( J , K ) , J = 1 , 2 ) , ( AA ( J , K ) , J = l,9)) 

• • • 
• • • 


01220 

677* 


ENDIF aENDIF OPTMZE 

• • • 
• • • 

02570 

01221 

678* 


ENDLOOP aENDLOOP K 



01223 

679* 


ELSE 8SEC0NC=F 



01224 

680* 


DO K=1,NTCNT 







< *j 


01227 

681* 


AA(4,K)=AA(3,K)/A5MAX 

• • 
• • 

02601 

01230 

682* 


XFLAG=. FALSE. 

• • 

02616 

01231 

683* 


IF (XTRACT) THEN 


02617 





< ; J 


01233 

684* 


IF ((K.EQ.l).OR.(K.EQ.NTCNT)) XFLAG=.TRUE. 

• • • 
• • • 

02621 

01235 

685* 


IF (AA(4,K).GT.(1.0-BOUNO)> XFLAG=.TRUE. 

• • • 

02636 

01237 

686* 


ENDIF aENDIF XTRACT 


02652 

01240 

687* 


IF (OPTMZE) THEN 

* • 
• • 






< — — ♦ : : 


01242 

688* 


IF (MORDEC) THEN 


02654 

01244 

689* 


WRITE (6,785) ( ( TT ( J ,K > , J=1 , 2 ) , ( OPT A A ( J ,K ) ,0=1 , 2 ) , 

• • • • 

02656 

01244 

690* 

S 

( AA(J,K) ,J=1,4)) 

• • » • 
• • * • 


01263 

691* 


ELSE 

• • « • 
• • • • 

02747 

01264 

692* 


WRITE (6,285) ( (TT ( J , K ) , J=1 , 2 ) , ( OPT A A ( J, K) , J=1 , 2 ) , 

• • • • 
• • * • 


01264 

693* 

& 

(AA(J,K),J=1,4)) 

• • • • 
• • • • 


01303 

694* 


ENDIF aENDIF MORDEC 

• • * • 
• • • • 

03037 

01304 

695* 


IF (XFLAG) 

• • • 
• • • 




0130<l 

696* 

& 

WRITE 

(100t285) ((TT(d.K) ,J=1,2) , (OPTAAI J.K) t J=l«2) ♦ 





0130<» 

697* 

& 

(AA(J«K)>J=1,4)) 





01324 

698* 


ELSE 





03132 

01325 

699* 


IF (MOROEC) THEN 











< 



01327 

700* 


WRITE 

(6,735) ( (TT(J,K),J=1,2), (AA(J,K), J=l,4>) 




03134 

01342 

701* 


ELSE 





03204 

01343 

702* 


WRITE 

(6,235) ((TT(J,K),d=l,2), (AA(d,K), J=l,4)) 



• • • • 
• • • • 


01356 

703* 


ENCIF 

8ENDIF MORDEC 



• • • • 
• • • • 

03253 

01357 

704* 


IF <XFLA6) 



• « ■ 
• • • 


01357 

705* 

& 

WRITE 

(100,235) ((TT(J,K),J=1,2), (AA(d,K>, J=l,4)) 



• • • 
• • • 


01373 

706* 


ENDIF 

SENOIF OPTMZE 



• « • 
• • * 

03327 

01374 

707* 


ENDLOOP 

aENDLOOP K 





01376 

708* 

ENDIF 

aENOIF SECONC 





01377 

709* 

60 CONTINUE 

3ERR0R RETURN FOR 





D1400 

710* 



a SUBROUTINES CKNOPT AND CKOPT. 





01400 

711* 

NUTORF:. FALSE 

. 3MUST INPUT NAMELIST NWTORF=T IN 





01401 

712* 



a NEXT SET OF DATA IF WANT NEW 




03332 

01401 

713* 



a RECEIVER TEMPERATURES OR 





C14C1 

714* 



a NEW EFFICIENCIES FOR POWER 





C1401 

715* 



3 CONVERSION.. 





01401 

716* 

DO 

J = l,32 

3REST0RES INPUT VALUES THAT WERE 











< 

-------- - — — 


01404 

717* 


Z< J)=Y(J) 

3 SAVED. 





01405 

718* 

ENDLOOP 

aENDLOOP J 




03351 

01407 

719* 

ENDLOOP 

3ENDL00P M 





01411 

720* 



aCO BACK AND READ NEW INPUTS 





01411 

721* 

C 







01411 

722* 

C * * 

* * 

******** 

* 




01411 

723* 

C * * 

♦ * 

******** 

* 




01411 

724* 

C * * 

* * 

******** 

* 




01411 

725* 

C 







01411 

726* 

C BLOCK 3. 







01411 

727* 

C NORMAL 

STOP OF PROGRAM AFTER 1000 SETS OF DATA. 





01411 

728* 

C 







01411 

729* 

80 STOP 

NORMAL 






01411 

730* 

C 







01411 

731* 

C ABNORMAL STOPS OF 

PROGRAM. 





01411 

732* 

C 







01412 

733* 

90 ERPRINT f ‘BAD 

ITRC READ* 




03353 

01417 

734* 

STOP 

BDREAD 





03360 

01420 

735* 

92 ERPRINT » ‘BAD 

PCSEFF READ* 




03362 

01425 

736* 

STOP 

BDREAD 





03367 

01425 

737* 

C 







01425 

738* 

c * * 

* « 

******** 

* 




01425 

739* 

C * * 

* * 

******** 

* 




01425 

740* 

c * * 

* * 

******** 

* 




01425 

741* 

c 







01425 

742* 

C BLOCK 4. 







01425 

743* 

C INPUT AND OUTPUT FORMATS. 





01425 

744* 

C 









0 

1 

N) 


01426 745* 110 FORMAT ( ) 

01427 746* 215 FORMAT (* ITRCl, ITRC2* ITRC3 =• ,2 ( 1 10, • , • ) * 1 10 ) 

01430 747* 220 FORMAT ( IH* , 3X , • RECE I VER TEMP IX , 2X COLLECTOR EFFICIENCY*, 

01430 748* & 2X,2X, 'PCS' ,3X,3X, "SYSTEM EFFICIENCY *, 3X, *FRAC .MAX . SYS .EFF I C .* ) 

01431 749* 221 FORMAT ( 1H+ , 3X , 1 3 (•_•), 4 X , 20 (•_•), 1 3X , 17 (•_•), 3X , 18 (•_•) > 

01432 750* 222 FORMAT ( IX ,5X , *C • , 4 X , 3X , • F • , 4 X , • W/O SEC.*,^ U/SEC.*, 

01432 751* & 2X,*DELTA',3X,*EFFIC.',lX,lX,*y/0 SEC. • , IX, *U/SEC. • , IX , • DELTA • , 

01432 752* & lX,lX,*U/0 SEC.*,1X,*U/ SEC.*) 

01433 753* 223 FORMAT < 1H+ , 2 ( 4X , 3 ( •_* ) , 1 X ) , 2X , 7 ( *_ * ) , 2X , 3 (5 ( •_• > , 3X ) , 7 ( *_* > , 

01433 754* & 2(2X,5( *_* )) ,2X,7( *_•) ,2X,6< *_•)) 

01434 755* 225 FORMAT ( 1H+ , 2X , "RECEIVER TEMP .*, IX , 'COLLECTOR *, 3X ,* PCS ", 2 X , 

01434 756* & "SYSTEM", 2X,*FRAC. MAX.*) 

01435 757* 226 FORMAT C IH* , 2X , 14 ( * _* ) ) 

01436 758* 227 FORMAT ( IX , 5X , * C * , 4X , 3X , * F * , 5X , * EFF IC. * , 2X , IX , * EFF I C. * , 1 X , 

01436 759* & "EFFIC. *,1X,*SYS.EFFIC. * ) 

01437 760* 228 FORMAT ( 1 H+ , 2 ( 4X , 3 < * _* ) , 1 X ) , 2X , 7< * * ) , 3X ,5 { *_• ) ,2X , 5 ( * *),2X, 

01437 761* & 9(*_*)) 

01440 762* 230 FORMAT ( IX , 2F8. 1 , 9F8 . 3 ) 

01441 763* 235 FORMAT ( 1 X , 2 F8. 1 , 4F 8 . 3 ) 

01442 764* 270 FORMAT ( 1H + , 2X , * RECE I VER TE KP. * , IX, * PR IH.6E0H. CONC . * , 1 X , 

01442 765* & "PRIM. INTERCEPT F ACT .*, IX ,* COLLECTOR EFFICIENCY", 

01442 766* & 2X.2X, "PCS* ,3X,2X, "SYSTEM EFF IC lENC Y * , 3X, "FRAC .MAX . S YS .EFF I C . * ) 

01443 767* 271 FORMAT <1H*,2X,13(* *),2X,14(* *),2X,19(* *),2X,20(* *),12X, 

01443 768* & 17<*_*),3X,18<*_*)) 

01444 769* 272 FORMAT < IX , 5X , * C *', 4X , 3X , * F * , 3X , * U/0 SEC. ", 2X ,* U/SEC .*, 2X , 

01444 770* & "U/0 SEC. * , IX , * U/SEC. * , 3 X , • U/0 SEC .♦, IX ,* U/SEC .* , 

01444 771* & IX, "DELTA", 2X, "EFFIC.*, IX, "U/0 SEC. ", IX ," U/SEC. ", 2X , "DELTA * , 

01444 772* & IX, IX, "U/0 SEC.*,1X,*U/ SEC.*) 

01445 773* 273 FORMAT < IH* , 2( 4X ,3 ( * * ) , 1 X ) , 1 X , 7 < *_ • ) , 3X ,5 ( * *),3X,7(« *),2X, 

01445 774* & 5(*_*),4X,7(*_*),2X,2<5<*_*),2X),5("_"),2X,7{*_"), 

01445 775* & 2X,5< *_* ) ,3X,5< *_* ) ,2X,7( *_* ) ,2X,6< •_* ) ) 

01446 776* 275 FORMAT < IH* , 2X , "RECE I VER TEMP .*, 2X, "GEOM. ", 2X, • INTERCEPT ", IX , 

01446 777* & "COLLECTOR", IX, "PCS", 3X, "SYSTEM", 2X, "FRAC. MAX.") 

01447 778* 276 FORMAT < IH* , 2X , 1 3 < * _' ) ) 

01450 779* 277 FORMAT < 1 X , 5X , * C * , 4 X , 3X , * F • , 2X , * CONC.R AT 10 * ♦ IX , "F ACTOR * , 3X , 

01450 780* & "EFFIC. *,2X, "EFFIC.*, IX, 

01450 781* & "EFFIC.*, IX, "SYS. EFFIC.*) 

01451 782* 278 FORMAT ( IH* , 2 ( 4X , 3 < * _* ) , 1 X ) , 1 0 ( • * ) , IX , 6 < *_• ) , 3X ,5 ( * *),3X,5(* *), 

01451 783* & 2X,5{*_*),2X,9(* *)) 

01452 784* 280 FORMAT TlX ,4 F8.1 ,Ix , 1 1F8. 3 , L5 ) 

01453 785* 285 FORMAT ( IX , 3F8. 1 ,5F8 . 3) 

01454 786* 290 FORMAT ( 1 HO , 20X ,* SECONDARY ", 3X ,* OVER ALL ", 9X ,* OVER ALL » ) 

01455 787* 291 FORMAT < IH* , 20X , 9 ( *_* ) , 3 X , 7 < *_* ) ,9X ,7 ( * *)) 

01456 788* 292 FORMAT ( 21X , 2 < * GEOM . CONC . * ) ,5X, » ICPT.FACT. * ) 

01457 789* 293 FORMAT ( IH* , 20X ,9 ( * _* ) ,2X , 9 < •_• ) , 7X , 9C •_• ) ) 

01460 790* 294 FORMAT ( 22X , F8.2 , 1 X , F8 . 1 , 8X ,F8.3 ) 

01461 791* 295 FORMAT ( 33X ,* OVERALL * ,9X ,* OVER ALL • ) 

01462 792* 296 FORMAT ( IH* , 32X , 7 ( * _* ) , 9X , 7 < •_ » ) ) 

01463 793* 297 FORMAT { 32X ,* GEOM. CONC. ", 6X , "IcPT .FACT ." ) 

01464 794* 298 FORMAT < IH* , 31X , 9{ • _* ) , 7X , 9 ( *_* ) ) 

01465 795* 299 FORMAT ( 31X ♦ F8 . 1 , 8X , F8. 3 ) 

01466 796* 730 FORMAT < IX , 2F8. 1 , 9F8 .5 ) 

01467 797* 735 FORMAT < IX , 2F8. 1 , 4F8 .5 ) 

01470 798* 780 FORMAT < IX , 4 F8 . 1 , IX , 2F8. 3 , 9F8 .5 ) 

01471 799* 785 FORMAT ( IX , 3F8 . 1 , F8. 3 ,4F8 .5 ) 

01471 800* C 

01471 801* C 


03373 
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01471 

802* 

01471 

803* 

01471 

804* 

01471 

805* 

01472 

806* 

01472 

807* 

01472 

808* 

01472 

809* 

01472 

810* 

01472 

811* 

01472 

812* 

01472 

813* 

01472 

814* 

01472 

815* 

01472 

816* 

01475 

817* 

01501 

818* 

01506 

819* 

015C6 

820* 

01506 

821* 

01506 

822* 

01506 

823* 

01506 

824* 

01506 

825* 

01506 

826* 

01506 

827* 

01506 

828* 

01506 

829* 

01506 

830* 

01506 

831* 

01506 

832* 

01506 

833* 

01506 

834* 

01513 

835* 

01516 

836* 

01516 

837* 

01516 

838* 

01517 

839* 

01523 

840* 

01527 

841* 

01527 

842* 

01533 

843* 

01540 

844* 

01540 

845* 

01540 

846* 

01543 

847* 

01543 

848* 

01546 

849* 

01546 

850* 

01546 

851* 

01546 

852* 

01546 

853* 

01546 

854* 

01546 

855* 


c** ********* *«** 

c* * ** * * ** * ** * « ** 

c** ********* ** ** 

c 

SUBROUTINE NAMLRD 
C READS INPUT DATA 

C (EXCEPT ARRAYS OP RECEIVER TEMPERATURES AND OP POWER CONVERSION 
C EPPICIENCIES). 

C PIRST READS SET OP DATA ALPHANUMERICALLY* ECHOES IT« AND WRITES DATA 
C SET TO A TEMPORARY PILE. 

C THEN READS DATA SET PROH TEMPORARY PILE USING NAMELIST. 

C 

C** ************* 

c* ******* ******* 

c 

WRITE (6«211) NSET aWRITES SET NUMBER 

IP (XTRON) WRITE (100«212) NSET SBEGINS WRITE OP XTRACT* IP 

a EXTRACT HAS BEEN REQUESTED. 

ERPRINT , 'ENTER INPUT VALUES (NAMELIST. WITH NAME "NLIST")' 

C 

C ********************************************************************** 

c ********************************************************************** 
c ** ** 

C ** INPUT 1 SET OP DATA (EXCEPT ARRAYS). ** 

C ** SET IS LIMITED TO 20 LINES (NOT INCLUDING ARRAYS). ** 

C ** ** 

c ********************************************************************** 
c ********************************************************************** 

c 

C BLOCK S.l. 

C READ 1 SET OF DATA ALPHANUMERICALLY. ECHO IT. WRITE DATA SET 
C INTO TEMPORARY FILE. 

C 

DO J=li20 


JJ = J 

READ (5.105»ERR=75.END=70) 
WRITE (98.105) INREAO 

WRITE (6.205) INREAD 
IP (XTRON) WRITE (100.205) 


DO K=1.1A 


aLOOP TO READ 1 LINE EACH TIME. 

a (NOT OVER 20 LINES PER DATA 
a SET) 

INREAD 8FIRST READ (ALPHANUMERIC), 
a USES FILE 98 FOR TEMPORARY 
a STORE AND RE-READ (NAMELIST). 
aECHO PRINT 

INREAD 3ECH0 TO EXTRACT. IF- 

a EXTRACT REQUESTED IN PRECEDING 
a DATA SET. 

8L00P TO READ 1 WORD EACH TIME. 


a (14 WORDS PER LINE OF INREAD) 
DO L=((K.EQ.1)*(1*(J.EQ.1)>).5 aLOOP TO READ 1 CHARACTER. 


8 (SCANS CHARACTERS 0-5 OF 
a INREAO WORD. EXCEPT 0 OF FIRST 
a WORD AND 1 OF FIRST CARD FIRST 
a WORD. WHICH SERVE ONLY TO 
a IDENTIFY INPUT AS NAMELIST) 

IF (FL0(L*6. 6. INREAD(K)).EQ.(FLO(0«6.«$>).OR.(FLD(O.G. •&•)))) 
& EXITLOOP J 8FIN0S TERMINATING •*» OR •&» 


03401 

03411 


03421 



03423 

03435 

03445 

03455 

03472 


03512 


< 
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01550 

01552 

0155A 

01556 

01556 

01560 

01560 

01560 

01560 

01560 

01560 

01560 

01560 

01560 

01564 

01564 

01564 

01564 

01564 

01564 

01564 

01564 

01564 

01566 

01570 

01571 

01572 

01573 

01575 

01576 
01576 
01576 
01576 
01576 
01576 

01576 

01577 

01601 

01605 

01610 

01614 

01620 

01622 

01624 

01625 

01627 

01630 


856* ENDLOOP 

857* ENDLOOP 

858* ENDLOOP 


SENDLOOP L 
aENDLOOP K 
SENDLOOP J. 


::: 03534 


859* 

860* 

861* 

862* 

863* 

864* 

865* 

866 * 

867* 

868 * 

869* 

870* 

871* 

872* 

873* 

874* 

875* 

876* 

877* 

878* 

879* 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


REMIND 98 


a ENDS FIRST READ (ALPHANUMERIC). 
SRESETS FILE 98 FOR 
a NAMELIST READ 


* * 

* 

* * * 

* * 

* 

* 

• 

* 

* 

* 

* 

* * 

* 

* * * 

* * 

* 

* 

♦ 

* 

* 

* 

* 

BLOCK S.2 











NAMELIST 

READ 

OF DATA FROM 

TEMPORARY 

FILE* 







READ ( 

98, 

NLIST, ERR=95, 

END=96) 








REWIND 

98 



3RESET 







* * 

* 

* * * 

* * 

* 

* 

* 

* 

♦ 

* 

* 

* * 

* 

■* * * 

* ♦ 


* 

* 


* 

* 



BLOCK S.3 

ON INITIAL REQUEST FOR EXTRACT* CATALOGS AND ASSIGNS FILE FOR THIS 
OUTPUT. 

IF ((XTRACT).AND.(.NOT.ASGIOO)) THEN 


880* CALL ASSIGNI »aCAT*P XTRACT < + 1 ) • * IDUMH, 1* S97) 

881* CALL ASSIGN! 'aASG, A XTR ACT •* IDUMH * 1 , $97) 


882* 


ISTAT=CSF8(3,*aUSE 

100, XTRACT* ) 


883* 


IF (ISTAT. 

LT.O) GO 

TO 97 


884* 


ASG100=.TRUE. 



885* 

886* 

C 

ENDIF 


3END1F XTRACT/ASGIOO 


887* 

C * 

* * * 

* 

******* 

* * * 

888* 

C 





889* 

C 

IF EXTRACT IS 

REQUESTED NOW AND HAS NOT BEEN PREVIOUSLY 

REQUESTED, 

890* 

C 

ECHOES INPUT 

TO EXTRACT FILE. 


891* 

c 






892* 


IF < (XTRACT ) .AND. ( .NOT. XTRON)) THEN 


893* WRITE (100,212) NSET 

894* DO J=1,JJ 

895* READ (98, 105, ERR=95, END=96) INREAD 

896* WRITE (100,205) INREAD 3T0 EXTRACT FILE. 

897* ENDLOOP SENDLOOP JJ 

898* REWIND 98 

899* ENDIF 3EN0IF XTRACT/XTRON 


03537 


03545 


03550 

03553 

03561 

03567 

03574 

03600 

03602 


< 

: 03605 
: 03613 

< ♦: 

:: 03620 
:: 03632 
:: 03644 


: 03647 


900* IF (XTRACT) THEN 

901* XTRON=.TRUE. 

902* ELSE 


: 03651 
: 03654 
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SENDIF XTRACT 


03655 


01631 

903* 


XTRON= 

•FALSE. 




D1632 

904* 


ENDIF 





01632 

905* 

C 






01632 

906* 

C 

* . * 

• 

* 

• 

* 

01632 

907* 

c 

♦ * * 

* 

* 

* 

# 

01632 

908* 

c 






01632 

909* 

c 

BLOCK S.4 





01632 

910* 

c 

RETURN AND 

STOPS 




01632 

911* 

c 






01632 

912* 

c 

NORMAL STOP WHEN 

3E0F 

READ 

IN 



01653 913* RETURN 

01634 914* 70 STOP MORHAL 

01634 915* C 

01634 916* C ABNORHAL STOPS. 

01655 917* 75 ERPRINT i 'BAD NAMELIST FIRST READ* 

01642 918* STOP 8DREAD 

01645 919* 95 ERPRINT < 'BAD NAMELIST REREAD* 

01650 920* STOP BDREAD 

01651 921* 96 ERPRINT i 'BEOF ON NAMELIST REREAD' 

01656 922* STOP BDREAD 

01657 923* 97 ERPRINT ,'BAD 3CAT/ASG/USE OF FILE 100. NO EXTRACT FILE PREPARED.' 

01664 924* XTRACT=. FALSE. 

01665 925* RETURN 

01665 926* C 

01665 927* C* *♦**•••• ****** 

01665 926* C** •*** •***« * »»* 

01665 929* C 

01665 930* C BLOCK S.5 

01665 931* C SUBROUTINE INPUT AND OUTPUT FORMATS. 

01665 932* C 

01666 933* 105 FORMAT (13A6(A2) 

01667 934* 205 FORMAT (IH »13A6»A2> 

0167D 935* 211 FORMAT < IHl t • SET ’ 1 1 6 ) 

01671 936* 212 FORMAT < IHO* 'SET • > 16) 

01671 937* C 


0 3657 


03661 
03666 
03670 
0 36 75 
03677 
03704 
03706 

03713 

03714 


03740 
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01671 938* C 

01671 939* C** ****** ******* 

01671 940* C** *********** ** 

01671 941* C** *********** ** 

01671 942* C 

01672 943* SUBROUTINE OPT 

01672 944* C 

01672 945* C CALCULATES OR CHECKS OPTICAL CHARACTERISTICS. 

01672 946* C 

01672 947* C CHECKS WHETHER SPECIFIED COLLECTOR CHARACTERISTICS ARE CONSISTENT. 

01672 948* C CALCULATES FOCAL PLANE DISTRIBUTION. 

01672 949* C IF REQUESTED* OPTIMIZES RECEIVER APERTURE OR MAXIMIZES INTERCEPT 

01672 950* C FACTOR OR CONCENTRATION RATIO. 

01672 951* C FOR COMPOUND CONCENTRATOR, ASSUMES SECONDARY PROVIDES UNIFORM FLUX ON 

01672 952* C ON FOCAL PLANE. IF REQUESTED, MAXIMIZES SECONDARY CONCENTRATION RATIO 

01672 953* C 

01672 954* C ENTRY CKNOPT IS CALLED IF RECEIVER APERTURE OPTIMIZATION IS 

01672 955* C NOT REQUESTED. 

01672 956* C ENTRIES CKOPT AND OPTAP ARE CALLED IF RECEIVER APERTURE OPTIMIZATION 

01672 957* C IS REQUESTED. THESE OPTIMIZE RECEIVER APERTURE AREA FOR EACH 

01672 958* C EACH TEMPERATURE. 
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a 


01672 

959* 

01672 

960* 

01672 

961* 

01672 

962* 

01672 

963* 

01672 

964* 

0167S 

965* 

01676 

966* 

01676 

967* 

01676 

968* 

01677 

969* 

01677 

970* 

01677 

971* 

01701 

972* 

01703 

973* 

01703 

974* 

01703 

975* 

01703 

976* 

01703 

977* 

01703 

978* 

01703 

979* 

01703 

980* 

01703 

981* 

01703 

982* 

01703 

983* 

01703 

984* 

01703 

985* 

01703 

986* 

01703 

987* 

01703 

988* 

01703 

989* 

01705 

990* 

01705 

991* 

01705 

992* 

01705 

993* 

01705 

994* 

01705 

995* 

01705 

996* 

01705 

997* 

01707 

998* 

01707 

999* 

01707 

1000* 

01707 

1001* 

01707 

1002* 

01710 

1003* 

01711 

1004* 

01711 

1005* 

01711 

1006* 

01711 

1007* 

01711 

1008* 

01711 

1009* 

01711 

1010* 

01711 

1011* 

01711 

1012* 

01711 

1013* 

01711 

1014* 

01711 

1015* 


c 

c******** **** *** 

c** *********** ** 

C BLOCK E.O 

C DEFINE STORAGE FOR SUBROUTINE. 

C 


LOGICAL IRFLG 


DIMENSION FRAYOO) <RHARAY(90 

DATA IRFLG/. FALSE./ 

DATA VF/6.0/ 


DATA (FRAY(I) 
& .2BG47187E02 
& .47702882E01 
& .25963S15E01 
& .17788440E01 
& .13488805E01 
& .10828699E01 
& .90147168E0O 
& .76942158E00 
& .668G5S99E00 
& .58896364E00 
& .52413641E00 
& .47018209EOO 
& / 

DATA (FRAY(I) 
& .42441622E00 
& .384966G5E00 
& .3504874GEOO 
& .31998578EOO 
& .29271274E00 
& .26809252F00 
& / 


I=lf60)/ 
.14322502E02«. 
.40874673C01«. 
.23785931E01f . 
.16727905E01*. 
.12861396E01«. 
.10413259E01*. 
.87185438E00«. 
.74717192E00f. 
.G5127287E00». 
.5749G118E00f . 
.51257G46E00f . 
.4G044318E00«. 

I=61f90)/ 

.41607030E00«. 

.37770921E00*. 

.34409586E00,. 

.31429344E00<. 

.28759245E00i. 

.26344537E00.. 


DEFINE S=SIN(RHAR> 
DEFINE C=COS<RMAR) 
DEFINE T=TAN(RMAR) 


9FLAG INDICATING IF ARRAY OF RIK 
a ANGLES HAS ALREADY BEEN 
aGENERATEO. 

) aARRAYS GIVING FOCAL RATIOS AND 
a CORRESPONDING RIM ANGLES FOR 
a PARABOLOID. 

aVARIENCE RATIO LIMITING 
a MAXIMUM CONCENTRATION WHEN 
a PHI .EQ. 1.0. USED TO CUT OFF 
a GAUSSIAN FLUX DISTRIBUTION. 


95471230E01 

35751696E01 

21942237E01 

15784392E01 

12287903E01 

10026961E01 

84398661EOO 

72605339E00 

6346625GE00 

56150973E0O 

50142292E00 

451O124OE0O 


.71590694E01t. 
.31765539E01,. 
.20360883E01f . 
.14939424E01*. 
.117G1585E01». 
.96GG7913E00t. 
.81771389E00.. 
.70597887E00,. 
•61877229E00t. 
.54857546EOO,. 
.49DG5311E00«. 
.44187396E00«. 


57259462E01, 

28575155E01, 

18989402E01t 

14178217E01t 

1127G781E01t 

93301354E00« 

79289942EOO, 

6868G999EOO« 

60355396E00t 

53612724E00, 

48024601EO0i 

43301315EOO* 


40796335E00 

370640G5E0O 

33785599E00 

30872466E00 

28257395EOO 

25888291E00 


.40008405EOO».39242181EOO« 

.363752G6E00..35703740EOOt 

.3317G158EOO«.32580G71EOOi 

.30327461E00,.29793876E00t 

.27765347E00».27282747E00* 

.25440218EOO«.25COOOOOEOO« 


STABLE OF FOCAL RATIOS AT 
a 1 DEGREE INCREMENTS OF RIM 
a ANGLE (1 TO 80 DEGREES* 
a 81 TO 90 DEGREES) 
a PARABOLOIDAL CONTOUR. 


C 

C * * * * * 

c • * • • • 

c 

C BLOCK E.l 
C OPTICAL CHECKS AND CALCULATIONS. 

C 

C CALLED IF RECEIVER APERTURE OPTIMIZATION IS NOT REQUESTED. 

C CHECKS CONSISTENCY OF COLLECTOR INPUT VALUES. 

C CALCULATES RIM ANGLE FROM GIVEN FOCAL RATIO OR VICE VERSA. 

C CALCULATES FLUX DISTRIBUTION IN FOCAL PLANE AS A GAUSSIAN WITH 
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a 


01711 

1016* 

01711 

1017* 

01711 

1018* 

01711 

1019* 

01711 

1020* 

01711 

1021* 

01711 

1022* 

01711 

1023* 

01711 

1024* 

01711 

1025* 

01711 

1026* 

01711 

1027* 

01711 

1028* 

01711 

1029* 

01711 

1030* 

01711 

1031* 

01711 

1032* 

01711 

1033* 

01711 

1034* 

01712 

1035* 

01712 

1036* 

01712 

1037* 

01712 

1038* 

01712 

1039* 

01712 

1040* 

01712 

1041* 

01712 

1042* 

01712 

1043* 

01713 

1044* 

01715 

1045* 

01722 

1046* 

01723 

1047* 

01724 

1048* 

01724 

1049* 

01726 

1050* 

01733 

1051* 

01734 

1052* 

01735 

1053* 

01737 

1054* 

01744 

1055* 

01751 

1056* 

01752 

1057* 

01754 

1058* 

01756 

1059* 

01760 

1060* 

01761 

1061* 

01762 

1062* 

01762 

1063* 

01762 

1064* 


C SIG2DF=TWICE THE VARIANCE OF FLUX DISTRIBUTION (IN UNITS OF 
C PRIHARY CONCENTRATOR RADIUS): 

C FOR OVERALL CONTOUR PARABOLO lOAL • 

C SIG2DF=2.0*DELTSQ*(1.0/(RMA*( (TAN(RHAR/2.0) )»*2) ) )* 

C {(-1.0/(3.0*(S»*3)*C))+(2.0/(3.0*<S**3)) )*(2.0/S>- 

C (C/(3.0*(S**3)))-(2.0*C/S)+{ (A.0*S)/ (3.0*0)- 

C LN(TAN(PI/A*RMA/2.0) )*LN(TAN(PI/4-RMAR/2.0))) 

C FOR OVERALL CONTOUR PLANAR, 

C SIG2DF=2.0 *DELTSQ»( 1.0+2. 0* (C**2) )/(3.0«RMA*C*S) 

C (THESE ARE DUFF-LAHIERO EXPRESSIONS FOR FLUX SPREAD IN FOCAL 

C PLANE). 

C HERE S=SIN(RHAR) 

C C=COS(RHAR) 

C RMAR=RIH ANGLE IN RADIANS (RELATED TO FOCAL RATIO F). 

C OELTSQ=(2.0*SLOPER/1000.0)**2+(SPECUL/1000.0)**2+(SOLSD/1000.0)**2 

C SLOPER=EQUIVALENT SLOPE ERROR. 

C SPECUL=SPECULARITY SPREAD. 

C SOLSD=STD. DEV. OF INCOMING SUNLIGHT. 

C 

ENTRY CKNOPT ($) 

C 

C* ***. * * * * * * * 

C BLOCK E.1.1 

C CHECKS INPUT OF COLLECTOR CHARACTERISTICS. 

C CALCULATES CONCENTRATOR RIM ANGLE OR FOCAL RATIO. 

C CALCULATES VARIANCE OF GAUSSIAN ANGULAR DISTRIBUTION OF SUNLIGHT 

C LEAVING A LOCAL AREA OF (PRIMARY) MIRROR OR LENS. 

C 

IF ((Cl .LE. O.O.AND. (MAXPHI.OR.(.NOT.HAXC))) THEN 

ERPRINT »*C1 MUST BE POSITIVE.* 

RETURN 1 

ENDIF 3ENDIF Cl 

IF (((PHIl.LE. 0.0).OR.(PHI1.GT. 1.0)). AND. 

& (MAXC.OR.(.NOT.MAXPHI))) THEN 

ERPRINT ,*PHI1 MUST BE POSITIVE AND NOT OVER 1.0* 

RETURN 1 

ENDIF aENDIF PHIl 

IF (HAXC.AND.HAXPHI) THEN 

ERPRINT , "CANNOT MAXIMIZE C AND PHI SIMULTANEOUSLY.* 

ERPRINTO, 'WILL MAXIMIZE C.* 

ENDIF 3EN0IF MAXC/MAXPHI 

IF (SECOND) THEN 

IF (CIS.LE. 0.0) C1S=C1 
IF (PHIIS.LE. 0.0) PHI1S=PHI1 
ENDIF aENDIF SECOND 

DELTSQ=(2.0»SLOPER/1000.0)**2+(SPECUL/1000.0)**2+(SOLSD/1000.0)**2 

aVARIANCE OF GAUSSIAN ANGULAR 
a DISTRIBUTION OF SUNLIGHT 
a LEAVING A LOCAL AREA OF MIRROR 


: 03752 
: 03757 
: 03763 


< 

: 04002 
: 04007 
: 04013 


< 

: 04016 
: 04023 
: 04030 


< 

: 04032 
: 04040 
: 04046 


04063 




01762 

1065* 


01762 

1066* 


01764 

1067* 


01771 

1068* 


01772 

1069* 


01773 

1070* 


01775 

1071* 


01777 

1072* 


02001 

1073* 


C2001 

1074* 


02006 

1075* 


02007 

1076* 


02010 

1077* 


02010 

1078* 


02010 

1079* 


02016 

1080* 


02020 

1081* 


02020 

1082* 


02020 

1083* 


02020 

1084* 


02026 

1085* 

o 

02026 

1086* 

N3 

02033 

1087* 

00 

02034 

1088* 


02035 

1089* 


02036 

1090* 


02037 

1091* 


02041 

1092* 


02043 

1093* 


02046 

1094* 


02047 

1095* 


02051 

1096* 


02052 

1097* 


02053 

1098* 


02054 

1099* 


02054 

1100* 


02054 

1101* 


02054 

1102* 


02055 

1103* 


02056 

1104* 


02057 

1105* 


02060 

1106* 


C2060 

1107* 


C2061 

1108* 


a OR LENS. 

IF (DELTSQ.LE. 0.0) THEN 

ERPRINT ••CANNOT HANDLE ZERO ANGLE SOURCE* 

RETURN 1 

ENOIF aENOIF OELTSO 

IF (RHA.LE. 0.0) THEN aNO RHA INPUT 

IF ((F.LE. 0.10).OR.(PARAB .AND. (F.LE. 0.25))) THEN BNO F INPUT 
IF (MAXC.OR.NAXPHI) THEN 

ERPRINT t'CANNOT MAXIMIZE C OR PHI WITHOUT ACCEPTABLE RIM AN 
&GLE OR FOCAL RATIO' 

RETURN 1 
ELSE 

IF (((PHIl.EQ. 1.0).ANO.(Cl.GT.(l.O/DELTSQ)>>.OR. 

& ((PHII.LT. l.OI.AND.ICl.GT.tVF/IDELTSOot-ALOGU.O-PHIl))))))) 

& ERPRINT ••WARNING! Cl GREATER THAN OPTICALLY POSSIBLE.' 

IF (SECONC) THEN 

IF (((PHIIS.EQ. 1.0).ANO.(C1S.GT.<1.0/DELTSO> > ) .OR. 

& ((phiis.lt. 1.0). and. 

& (C1S.GT.(VF/(DELTSQ*(-ALOG(1.0-PH1 IS) )))))) 

& ERPRINT ••WARNING! CIS GREATER THAN OPTICALLY POSSIBLE.' 

ERPRINT • 'NOTE: CANNOT VERIFY THAT C2 IS OPTICAL 

4LY POSSIBLE WITHOUT F OR RMA INPUT.' 

RETURN 

ENDIF aENDIF SECONC 

RETURN 

ENOIF aENDIF MAXC/MAXPHI 

ELSEIF ((PARAB). ANO. (F.LE. 10.0)) 3F INPUT 

IF (.NOT. IRFLG) THEN aPREPARES RMARAY IF NOT 

DO 1=1 • 90 a ALREADY PREPARED 

RMARAY(I)=I 

ENOLOOP SENOLOOP I 

,IRFL6=.TRUE. 

ENOIF aENDIF IRFLG 

CALL. SLUP(F^RHA^0UMMY^FRAY^RMARAY^90^2) 

aTABLE LOOKUP ANO INTERPOLATION 
a TO GET RIM ANGLE FOR 
a PARABOLOIDAL CONTOUR. 
aCONVERT TO RADIANS 

8F0CAL LENGTH OUTSIDE 
a OF TABLE RANGE, 
a OR PLANAR CONTOUR. 
aENDIF F 

aRMA INPUT 


RMAR=RMA*PI/180.0 

ELSE 

RMAR=ATAN2(1.0.(2.0*F) ) 
RMA=RHAR/(PI/180.0) 

ENOIF 

ELSE 


: 04067 
: 04074 
: 04100 



04104 

04120 

04123 

04130 

04134 

04206 

04210 

04263 

04270 

04272 

04275 

04303 

04310 

04322 

04324 

04335 

04342 

04352 

04357 
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02062 

1109* 

02063 

1110* 

02065 

1111* 

02066 

1112* 

02067 

1113* 

02070 

1114* 

02071 

1115* 

02072 

1116* 

02074 

1117* 

02101 

1118* 

02102 

1119* 

02102 

1120* 

02102 

1121* 

02102 

1122* 

02102 

1123* 

02102 

1124* 

02102 

1125* 

02103 

1126* 

02105 

1127* 

02105 

1128* 

02105 

1129* 

02105 

1130* 

02106 

1131* 

02107 

1132* 

02110 

1133* 

02111 

1134* 

02113 

1135* 

02114 

1136* 

02115 

1137* 

02117 

1138* 

02120 

1139* 

02121 

1140* 

02122 

1141* 

02123 

1142* 

02124 

1143* 

02126 

1144* 

02127 

1145* 

02131 

1146* 

02136 

1147* 

02137 

1148* 

02140 

1149* 

02141 

1150* 


RHAR = RHA*(PI/180.0 ) 

IF (PARAE) THEN 

F=a.O+C)/(A.O*S) 

ELSE 

F=1.0/(2.0*T) 

ENDIF SENDIF PARAE 

ENDIF aENOIF RMA 

IF ((C .LE. 0.0) .OR. (S .LE. 0.0)> THEN 3TO PREVENT DIVIDE 

ERPRINT t'NOTE: RIM ANGLE OUTSIDE OF RANGE.' S BY ZERO OR LOG 
RETURN 1 a OF NEGATIVE NUMBER. 

ENDIF 8ENDIF C»S 

************** 

BLOCK E 1.2 

CALCULATES FOCAL PLANE FLUX DISTRIBUTION. 

MAXIMIZES CONCENTRATION RATIOS OR INTERCEPT FACTOR IF REQUESTED. 


IF (PARAB) THEN 

SIG20F = 2.0*OELTSQ* <1.0/(RMAR*< <TAN<RMAR/2.0))»*2>)> 

& ( <-1.0/(3.0*(S»*3)*C) )+(2.0/<3.0*<S**3)))*(2.0/S>- 

& <C/<3.0«{S**3)) )-<2.0*C/S)♦((♦.0•S)/(3.0♦C))- 

& ALOG<TAN<PA+RMAR/2.0) )+ALOG<TAN<P4-RHAR/2.0>)> 

ELSE 

SIG20F=2.0*DELTSQ» (1.0+2.0*<C**2))/(3.0*RMAR»C*S) 

ENDIF aENDIF PARAB 

IF (MAXPHI.AND.(.NOT.MAXC)) THEN 

PHI 1=1. 0-EXP <-1.0/(Cl*SIG2DF)) 

ELSE 

IF (PHIl.LT. 1.0) THEN 

PHI 1FC=-AL0G<1. 0-PHI 1) 

ELSE 

PHI1FC=VF 

ENDIF aENDIF PHIl 

C1MAX= 1.0/(SIG2DF*PHI1FC) 

IF (MAXC) THEN 

C1=C1MAX 

ELSE IF ( (.NOT.MAXPHD.ANO. (Cl.GT.ClMAX)) 

ERPRINT t'UARNING! Cl GREATER THAN OPTICALLY POSSIBLE.' 
ENDIF aENDIF MAXC 

ENDIF 8EN0IF MAXPHI 

IF (SECOND) 

IF (MAXPHI. AND. (. NOT. MAXC))THEN 


* aOUFF- 
a LAMEIRO 
a SPREAD 
a FUNCTIONS. 


0A3G3 

04365 

04401 

04410 


04432 

04437 

04443 



04471 


04563 

04566 

04607 



04612 

04625 


04631 

04641 

04643 


04650 

04652 

04655 

04666 

04673 


< 


04675 




022<»0 1184* RETURN 

02241 1185* 

C2241 1186* C 

02241 1187* C 

02241 1188* C* * • * * *■• • * * * * * * 

02241 1189* C* ******* ****** 

02241 1190* C 

02241 1191* C BLOCK E.2 

02241 1192* C OPTICAL CHECKS AND CALCULATIONS. 

02241 1193* C 

02241 1194* C CALLED IF OPTIMIZATION OF RECEIVER APERTURE IS REQUESTED. 

02241 1195* C PERFORMS SAME TASKS AS STATED FOR ENTRY CKNOPT (BLOCK E.l). 


05124 
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02241 

1196* 

C 

ALSO SETS UP RECEIVER APERTURE 

OPTIMIZATION. 

02241 

1197* 

C 




02241 

1198* 


ENTRY CKOPT {$) 



02241 

1199* 

C 




02241 

1200* 

C 

***** 

* 

****** 

02241 

1201* 

C 

BLOCK E.2.1 



02241 

1202* 

C 

CHECKS INPUT OF COLLECTOR 

CHARACTERISTICS. 

02241 

1203* 

C 

CALCULATES CONCENTRATOR RIP ANGLE OR FOCAL RATIO. 

02241 

1204* 

C 




02242 

1205* 


C1=0.0 


3T0 CLARIFY PRINTOUT. 

02243 

1206* 


PHI1=0.0 


3THESE UILL BE DIFFERENT FOR 

02244 

1207* 




9 EACH TEMPERATURE. 

02244 

1208* 


C1S=0.0 



02245 

1209* 


PHI1S=0.0 



02246 

1210* 


IF (HAXC.OR.HAXPHI) THEN 



02250 

1211* 


ERPRINT t’UARNING: CANNOT 

OPTIMIZE AND MAXIMIZE C SIMULTANEOUSLY* 

02255 

1212* 


ERPRINTOt* UILL IGNORE MAXIMIZATION.' 

02262 

1213* 


ENDIF 


9ENDIF MAXC/MAXPHI 

02263 

1214* 


IF (RMA.LE. 0.0) THEN 


9N0 RMA INPUT 

02265 

1215* 


IF UF.LE. 0.10).OR.(PARAB .AND. (F.LE. 0.25>) 

02265 

1216* 


& .OR.(F .GT. 25.0)) THEN 



02267 

1217* 


ERPRINT TO OPTIMIZE 

MUST 

PROVIDE ACCEPTABLE RIM ANGLE OR FO 

02267 

1218* 


&CAL RATIO* 



02274 

1219* 


RETURN 1 



02275 

1220* 


ELSEIF ((PARAB). AND. (F.LE 

. 10 

.0)) 8F INPUT 

02277 

1221* 


IF (.NOT. IRFLG) THEN 


8PREPARES RMARAY IF NOT 

02301 

1222* 


DO 1=1, 90 


3 ALREADY PREPARED 

02304 

1223* 


RMARAY(I)=I 



02305 

1224* 


ENDLOOP 


9ENDL00P I 

02307 

1225* 


IRFLG=.TRUE. 



02310 

1226* 


ENDIF 


9ENDIF IRFLG 

02311 

1227* 


CALL SLUP(F,RMA, DUMMY, FRAY, 

RMARAY, 90, 2) 

02312 

1228* 




STABLE LOOKUP AND INTERPOLATION 

02312 

1229* 




a TO GET RIM ANGLE FOR 

02312 

1230* 




3 PARABOLOIDAL CONTOUR. 

02312 

1231* 


RMAR=RMA*PI/180.0 


3C0NVERT TO RADIANS 

02313 

1232* 


ELSE 



02314 

1233* 


RMAR=ATAN2(1.0,(2.0*F)) 


3F0CAL LENGTH OUTSIDE 

02315 

1234* 


RMA=RMAR/(PI/180.0) 


3 OF TABLE RANGE, 

02316 

1235* 


' 


3 OR PLANAR CONTOUR. 

02316 

1236* 


ENDIF 


3ENDIF F 

02317 

1237* 


ELSE IF (RMA.GE. 90.0) 



02321 

1238* 


ERPRINT ,'RIM ANGLE TOO LARGE 

, 

02326 

1239* 


RETURN 1 



02327 

1240* 


ELSE 


3RMA BETUEEN 0.0 AND 90.0 

02330 

1241* 


RMAR=RMA*(PI/180.0) 



02331 

1242* 


IF (PARAB) THEN 




05125 

05126 

05127 
05130 

< 

: 05133 
: 05140 
: 05145 



05151 

05171 

05176 

05202 

05210 

05215 

05227 

05231 

05242 


05247 

05257 

05264 


05270 

05275 

05301 

05305 
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02333 

02334 

02335 

02336 

02337 
02337 
02337 
02337 
02337 
02337 
02337 
02337 
02337 
02337 

02340 

02341 
02341 
02341 
02341 
02341 

02343 

02350 

02351 

02352 

02354 

02354 

02354 

02354 

02355 

02356 

02357 

02360 

02362 

02364 

02371 

02372 

02373 

02375 

02402 

02407 

02410 

02411 

02412 

02413 

02415 


1243* 


F=(1.0*C)/(4.0*S) 



1244* 


ELSE 



1245* 


F=1.0/(2.0*T) 



1246* 


ENDIF 

aENDIF 

PARAB 

1247* 

1248* 

C 

ENDIF 

aENDIF 

RMA 

1249* 

C * 

*.**.* 

. * 

* * * * 

1250* 

C 




1251* 

C 

BLOCK E.2.2. 



1252* 

C 

CALCULATES ANGULAR SPREAD OF 

SUNLIGHT LEAVING LOCAL AREA OF 

1253* 

C 

MIRROR OR LENS. 



1254* 

C 

CALCULATES FOCAL PLANE FLUX 

DISTRIBUTION. 

1255* 

C 

MAXIMIZES SECONDARY CONCENTRATION RATIO 

♦ IF REQUESTED. 

1256* 

c 





05307 

05323 

05332 


r 


1257* 

1258* 

1259* 

1260* 

1261* 

1262* 


DELTSQ=(2.0»SLOPER/1000. 0)**2* (SPECUL/1 000 .0 )**2* < SOLSD/1 000 . 0 ) • *2 

aVARIANCE OF GAUSSIAN ANGULAR 
a DISTRIBUTION OF SUNLIGHT 
a LEAVING A LOCAL AREA OF MIRROR 
a OR LENS. 

IF ((C .LE. 0.0) .OR. (S .LE. 0.0)) THEN 3T0 PREVENT DIVIDE 


1263* 

1264* 

1265* 


ERPRINT ♦•NOTE* RIM ANGLE OUTSIDE OF RANGE.* a BY ZERO OR LOG 
RETURN 1 a OF NEGATIVE NUMBER. 

ENDIF aENDIF CtS 


05347 


: 05371 
: 05376 
: 05402 


1266* 


IF (PARAB) THEN 


1267* 

1268* 

1269* 

1270* 

1271* 

1272* 

1273* 


SIG2DF=2.0*DELTSQ*(1.0/(RMAR*( (TAN(RMAR/2.0) ) **2) ) )* 

& <(-1.0/(3.0*(S**3)*C))+<2.0/(3.0*(S»*3)))*<2.0/S)- 

& (C/(3.0*(S**3) ) )-(2.0*C/S)+( (4.0*S)/ (3.0*0 )- 

& ALOG(TAN(P4*RMAR/2.0))*ALOG(TAN(P4-RHAR/2.0))) a 

ELSE 

SIG20F=2.0*DELTSQ* (1.0*2.0*(C**2) )/(3.0*RMAR*C*S) 
ENDIF aENDIF PARAB 


aOUFF- 
a LAMEIRO 
a SPREAD 
FUNCTIONS. 



05430 


05522 

05525 

05546 


1274* IF (SECONC) THEN 

1275* IF ((C2 .LE. 0 . 0 ) . AND. < .NOT.MAXSEC) ) THEN 


1276* 

1277* 

1278* 


ERPRINT t*C2 MUST BE POSITIVE.' 

RETURN 1 

ENDIF aENDIF C2 


< 


: 05550 


: 05560 
: 05565 
: 05571 


1279* 


IF ((PHI2.LE. 0.0).OR.(PHI2.GT. 1.0)) THEN 


1280* 

1281* 

1282* 

1283* 


ERPRINT t'UARNING! PHI2 MUST BE POSITIVE AND NOT OVER 1.0* 
ERPRINT t'SETTING PHI2=1.0* 

PHI2=1.0 

ENDIF aENDIF PHI2 


: 05604 
: 05611 
: 05616 
: 05620 


1284* 

1285* 

1286* 

DELT=SQRT(DELTSQ) 

C2MAX=1.0/(((SIN(RMAR+DELT))**2)*PHI2) 
IF (MAXSEC) THEN 

1287* 

C2H0LD=C2MAX 


< 


: 05624 
: 05636 

+ : 

:: 05640 
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C2416 

1288* 


c2=o.o aro clarify printout 


:: 05642 

02AI7 

1289* 


ELSEIF (C2.GT.C2PAX) 


:: 05644 

02421 

1290* 


ERPRINT ♦•WARNING! C2 GREATER THAN OPTICALLY POSSIBLE.* 


:: 05651 

02426 

1291* 


C2HOLD=C2 


:: 05656 

02427 

1292* 


ENOIF 3ENDIF MAXSEC 


:: 05660 

C2430 

1293* 


ENDIF aENDIF SECONC 



02431 

1294* 


RETURN 



02431 

1295* 

C 




02431 

1296* 

C 

♦♦♦♦♦♦♦♦A****** 



02431 

1297* 

C 

*♦*♦*****♦*♦*♦* 



02431 

1298* 

C 




02431 

1299* 

C 

BLOCK E.3 



02431 

1300* 

C 

CALLED IF RECEIVER OPTIMIZATION IS REQUESTED. 



02431 

1301* 

C 

OPTIMIZES RECEIVER APERTURE. SETTING CONCENTRATION RATIO 



02431 

1302* 

C 

C=l/(SIG2DF*LN(INS*RHO*BS* ALPHA/ 



02431 

1303* 

C 

(SIG2DF*EPS*BOLTZ* (TRK**4-TAK**4)*H*(TRK-TAK) )) ) 



02431 

1304* 

C 

ENTERS CONCENTRATION RATIOS AND INTERCEPT FACTOR IN OUTPUT ARRAY. 



02431 

1305* 

C 




02432 

1306* 


ENTRY OPTAP ($) 


05662 

02433 

1307* 


IF (TRMB.LE. 0.0) THEN 



02435 

1308* 


ERPRINT ♦•CANNOT OPTIMIZE. NO RECEIVER APERTURE LOSSES.* 


: 05666 

02442 

1309* 


RETURN 1 


; 05673 

02443 

1310* 


ENOIF 8ENDIF TRMB 


; 05677 

02444 

1311* 


CINV=SIG2DF*AL0G<TRMA/(SIG20F*TRM8) ) 


05701 

02445 

1312* 


Cl = AHAXK1.0/CINV. BOUND) 


05712 

02446 

1313* 


PHI1=AMAX1(1.0-SIG20F*TRMB/TRMA.O.O) 


05721 

02447 

1314* 


0PTAA(1.NTCNT)=C1 


05731 

02450 

1315* 


IF (SECONC) THEN 


05742 

02452 

1316* 


CINVS=SIG2OF*AL0G<<TRMAS*PHI2*C2HOLO)/(SI62DF*TRMB)) 


: 05747 

02453 

1317* 


C1S=AMAX1(1.0/CINVS. BOUND) 


: 05761 

02454 

1318* 


PHI1S=AMAX1(1.0-SI620F*TRHB/(TRMAS*PHI2*C2HOLD).0.0) 


: 05770 

02455 

1319* 


C2MAX=1.0/(C1S*< (SIN(DELT))**2)) 


: 06003 

02456 

1320* 


IF (PHIIS.LT. 1.0) C2MAX=C2MAX*VF/(-ALOG(1.0-PHIlS)) 


: 06013 

02460 

1321* 


IF (MAXSEC) THEN 


: 06031 

02462 

1322* 


C2=AMIN1(C2H0L0.C2MAX) 


:: 06033 

02463 

1323* 


0PTAA(5.NTCNT)=C2 


:: 06041 

02464 

1324* 


ELSEIF (C2.GT.C2MAX) 


:: 06052 

02466 

1325* 


ERPRINT ♦•WARNING! C2 GREATER THAN OPTICALLY POSSIBLE* 


:: 06057 

02473 

1326* 


ENOIF aENDIF MAXSEC 


:: 06064 

02474 

1327* 


0PTAA(2.NTCNT)=C1S 


: 06066 

02475 

1328* 


0PTAA(3.NTCNT)=PHI1 


: 06075 

02476 

1329* 


0PTAA(4.NTCNT)=PHI1S 


: 06104 

02477 

1330* 


ELSE 


: 06114 

02500 

1331* 


0PTAA(2.NTCNT)=PHI1 



02501 

1332* 


ENOIF aENDIF SECONC 


: 06125 

02502 

1333* 


RETURN 



02503 

1334* 


END 


06170 


0 DIAGNOSTICS 
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* 715 * * 735 , * 752 * * 776 * * 1051 * * 1133 * * 1151 * * 1167 * * 1223 * * 1263 * *1324 
* 2106 * * 2114 * * 2120 * * 2144 * * 2150 * * 2313 * * 2327 , * 2334 * * 2355 * *2477 
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97L 1570. 1571. 1579, *1662 

A 112, *577, *670, *673, *674, *700, 701, *714, *757, *761, 762, *765, 766, *767, 773, 777, 1000, 1001 

AA 112, *624, *773, *777, *1000, *1001, *1014, *1015, 1023, 1032, 1052, 1073, 1154, 1170, 1205, *1227, 1235, 1244, 1264 

1305, 1327, 1343, 1360 

ALOG 2010, 2020, 2105, 2117, 2147, 2222, 2354, 2444, 2452, 2457 

ALPHA 113, 114, *135, 634, *1560 

AHAXl 670, 673, 762, 766, 2445, 2446, 2453, 2454 

AHINl 2223, 2462 

ARATIC 113, 114, *141, *366, 665, *1560 

ASGIOO 111, *177, 1566, *1575 

ASSIGN *1570, *1571 

ATAN2 2056, 2314 

AUXE 113, 114, *151, 755, *1560 

A5MAX *632, *762, 1014, 1227 

A6HAX *633, *766, 1015 

BOLTZ *174, 664 

BOUND *176, 1023, 1235, 2445, 2453 

BSl 113, 114, *120, 634, *1560 

BS2 113, 114, *121, *372, 635, *1560 

C 1710, 2065, 2072, 2105, 2107, 2333, 2341, 2354, 2356 

CARNOT *661, 701, 714, 721, 734, 741, 753 

CINV *2444, 2445 

CINVS *2452, 2453 

CKNOPT *413, 1712 

CKOPT *411, 2241 

COS 1710, 2065(C), 2072(C), 2105(C), 2107(C), 2333(C), 2341(C), 2354(C), 2356(C) 

CSF8 110, *1572 

CYCE *740, 741, *753, 755 

CYCECT 113, 114, *147, *363, 753, *1560 

Cl 113, 114, *125, 670, *1560, 1713, 1755, 2010, 2113, *2126, 2127, *2242, *2445, 2447 

CIMAX *2123, 2126, 2127 

CIS 113, 114, *126, 673, *1560, 1754, *1755, 2020, 2143, *2156, 2157, 2220, *2244, *2453, 2455, 2474 

CISHAX *2153, 2156, 2157 

C2 113, 114, *127, *374, 673, 1134, 1142, *1560, 2170, *2226, 2227, 2362, *2416, 2417, 2426, *2462, 2463, 2464 

C2HOLO *2415, *2426, 2452, 2454, 2462 

C2HAX *2220, *2222, *2223, 2226, 2227, *2412, 2415, 2417, *2455, *2457, 2462, 2464 

DELT *2217, 2220, 2223, *2411, 2412, 2455 

OELTSG *1761, 1762, 2010, 2020, 2105, 2107, 2217, *2340, 2354, 2356, 2411 

DTRE 113, 114, *143, 646, *1560 

DUMMY *2053, *2311 

EFF 112, *341, 700, 720, 740 

ENEFCT 113, 114, *146, *362, 732, 734, *1560 

ENGE *720, 721, *734, *755, 757 

EPS 113, 114, *136, 664, *1560 

EXP 2113, 2143 

F 113, 114, *130, *1560, 1775, 2037, *2053, 2056, *2065, *2067, 2265, 2275, *2311, 2314, *2333, *2335 

FRAY 1676, 1703, 1705, *2053, *2311 

GEARE 113, 114, *152, 757, *1560 

GENE 113, 114, *153, 757, *1560 

HC 113, 114, *140, 664, *1560 

HK 113, 114, *142, 365, 665, *1560 

I 1703, 1705, 2043, 2046, 2301, 2304 

ICYCEF 111, 114, *165, 266, 357, 421, 736, *1560 

IDUHM *1570, *1571 

lENGEF 111, 114, *164, 266, 323, 357, 421, 716, *1560 

INREAO 112, *1517, 1523, 1527, 1534, 1546, *1610, 1614 

INS 107, 113, 114, *115, 376, 634, 670, 673, *1560 
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IPCSEF lilt 114t *163( 266» 31A« 357t A21« 676« *1560 

IRFLG 1675t 1677* 2041, *2051, 2277, *2307 

ISTAT *1572, 1573 

ITRC 637, 645, 662, 663 

ITRCl *225, 233, 242, 265, 637 

ITRC2 *225, 233, 242, 265, 637 

ITRC3 *225, 233, 242, 250, 265, 637 

J 206, 211, 574, 577, 605, 610, 613, 616, 621, 624, 770, 773, 1032, 1052, 1073, 1154, 1170, 1205, 1244, 1264, 1305, 1327 

1343, 1360, 1401, 1404, 1513, 1516, 1543, 1605 
JJ 421, *1516, 1605 

K 341, 602, 610, 616, 624, 1011, 1014, 1015, 1021, 1023, 1032, 1052, 1073, 1116, 1125, 1134, 1142, 1154, 1170, 1205, 1224 

1227, 1233, 1235, 1244, 1264, 1305, 1327, 1343, 1360, 1540, 1543, 1546 
L 1543, 1546 

LOG 223, 261, 277, 304, 311, 321, 330, 336, 353, 403, 572, 654, 706, 726, 746, 1415, 1423, 1511, 1640, 1646, 1654, 1662 

1720, 1731, 1742, 1747, 1767, 2004, 2014, 2024, 2031, 2077, 2134, 2164, 2175, 2206, 2213, 2234, 2253, 2260, 2272, 2324 
2346, 2367, 2400, 2405, 2424, 2440, 2471 
« 201 

KAXC 111, 114, *157, *1560, 1713, 1724, 1735, 1777, 2111, 2124, 2141, 2154, 2246 

MAXPHI 111, 114, *160, *1560, 1713, 1724, 1735, 1777, 2111, 2127, 2141, 2157, 2246 

PAXSEC 111, 114, *162, 456, 1114, *1560, 2170, 2224, 2362, 2413, 2460 

MECHE 107, 113, 114, *150, 755, *1560 

PIN 1006 

PNT *270, *273, 341 

HORDEC 111, 114, *171, 1030, 1152, 1242, 1325, *1560 

NAHLRO *205, 1472 

NLIST 114, 252, 415, 1560 

NSET *175, *204, 1475, 1502, 1601 

NT 103, 112, 271, 273, 602, 643, 1006 

NTCNT *636, *642, 643, 662, 663, 700, 720, 740, 773, 777, 1000, 1001, *1006, 1011, 1021, 1224, 1233, 2447, 2463, 2474, 2475 

2476, 2500 

NTRC *265, 270, 271, 421 

NUTORF 111, 114, *166, 214, 421, *1400, *1560 

OPT 1672 

OPTAA 112, *616, 1032, 1052, 1073, 1116, 1125, 1134, 1142, 1244, 1264, 1305, *2447, *2463, *2474, *2475, *2476, *2500 

OPTAP *667, 2432 

0PTM2E 111, 114, *155, 407, 421, 435, 666, 1026, 1240, *1560 

PARAB 111, 114, *156, *1560, 1775, 2037, 2063, 2103, 2265, 2275, 2331, 2352 

PCEFCT 113, 114, *145, *361, 712, 714, *1560 

PHIl 113, 114, *122, 670, *1560, 1724, 1757, 2010, *2113, 2115, 2117, *2243, *2446, 2475, 2500 

PHIIFC *2117, *2121, 2123 

PHIIS 113, 114, *123, 673, *1560, 1756, *1757, 2020, *2143, 2145, 2147, 2221, 2222, *2245, *2454, 2456, 2457, 2476 

PHIISF *2147, *2151, 2153 

PHI2 113, 114, *124, *373, 673, 1116, 1125, 1134, 1142, *1560, 2201, *2215, 2220, 2223, 2373, *2407, 2412, 2452, 2454 

PI *172, 173, 2054, 2057, 2062, 2312, 2315, 2330 

PPE 113, 114, *154, 761, 765, *1560 

PRINTS 221, *223, *261, *277, *304, *311, *321, *330, *336, *353, *403, *572, *654, *706, *726, *746, *1415, *1423, *1511 

*1640, *1646, *1654, *1662, *1720, *1731, *1742, *1747, *1767, *2004, *2014, *2024, *2031, *2077, *2134, *2164, *2175 
♦2206, *2213, *2234, *2253, *2260, *2272, *2324, *2346, *2367, *2400, *2405, *2424, *2440, *2471 
P4 *173, 2105, 2354 

RHOl 113, 114, *116, 634, *1560 

RH02 113, 114, *117, *371, 635, *1560 

RMA 113, 114, *131, *1560, 1773, *2053, 2054, *2057, 2062, 2263, *2311, 2312, *2315, 2317, 2330 

RPAR 1707, 1710, 1711, *2054, *2056, 2057, *2062, 2065(S), 2065(C), 2067(T), 2072(C), 2072(S), 2105, 2105(S), 2105(C) 

2105(S), 2105(C), 2105(S), 2105(C), 2105(S), 2105(C), 2107, 2107(S), 2107(C), 2223, *2312, *2314, 2315, *2330, 2333(S) 
2333(C), 2335(T), 234KS), 2341(C), 2354, 2354(S), 2354(C), 2354(S), 2354(C), 2354(S), 2354(C), 2354(S), 2356, 2356(C) 
2356(S), 2412 

1676, *2046, *2053, *2304, *2311 


RPARAY 
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s 

SECONC 

SIG2DF 

SIN 

SLOPER 

SLUP 

SOLSC 

SPECUL 

SORT 

SUP2 

T 

TAC 

TAK 

TAN 

TIK 

TOC 

TOK 

TRK 

TRHA 

TRMAS 

TRMB 

TRMC 

TT 

VF 

XFLA6 

XTRACT 

XTRON 

Y 

Z 


1707« 2065« 2072« 2105i 2107t 2333« 2341, 2354, 2356 

111, 114, *161, 367, 421, 437, 532, 671, 763, 1007, *1560, 1752, 2016, 2140, 2360, 2450 
*2105, *2107, 2113, 2123, 2143, 2153, *2354, *2356, 2444, 2446, 2452, 2454 

1707, 2065(S), 2072(S>, 210S(S>, 2107(S), 2220, 2223, 2333(S), 234KS), 2354(S), 23S6(S), 2412, 2455 
113, 114, *132, *1560, 1761, 2340 
*2053, *2311 

113, 114, *134, *1560, 1761, 2340 
113, 114, *133, *1560, 1761, 2340 
2217, 2411 

111, 114, *170, 421, 454, 1112, *1560 
1711, 2067, 2335 

113, 114, *137, 631, *1560 
*631, 664, 665 

1711, 2067(T), 2105, 2335(T), 2354 

*646, 647, 661 

113, 114, *144, 660, *1560 

*660, 661 

*645, 646, 664, 665 

*634, 635, 670, 2444, 2446 

*635, 673, 2452, 2454 

*664, 670, 673, 2433, 2444, 2446, 2452, 2454 

*665, 670, 673 

112, *610, *662, *663, 1032, 1052, 1073, 1154, 1170, 1205, 1244, 1264, 1305, 1327, 1343, 1360 
1701, 2010, 2020, 2121, 2151, 2222, 2457 

111, *1016, *1022, *1024, 1072, 1124, 1141, 1204, *1230, *1234, *1236, 1304, 1357 
111, 114, *167, 241, 1017, 1231, *1560, 1566, 1577, 1625, *1664 

111, *200, 1501, 1533, 1577, *1627, *1631 

112, *211, 1404 
112, 113, 211, *1404 


REFERENCE TO 

EXTERNAL 

FUNCTION 


ARGUMENT 



1 



1570 

B/C 

t 


1571 

B/C 

ARGUMENT 



2 



1570 

I/V 

9 


1571 

I/W 

ARGUMENT 



3 



1570 

I/C 

9 


1571 

I/C 

ARGUMENT 



4 



1570 

L/L 

9 


1571 

L/L 

FUNCTION 

CKNOPT 


1712 



ARGUMENT 1 LABLE/LABLE 

413 L/L 

FUNCTION CKOPT 2241 


ARGUMENT 1 LABLE/LABLE 

411 L/L 

REFERENCE TO EXTERNAL FUNCTION CSF8 

ARGUMENT 1 

1572 1/C 

ARGUMENT 2 

1572 B/C 

FUNCTION OPTAP 2432 

ARGUMENT 1 LABLE/LABLE 
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